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THE GODDARD GENERAL ORBIT DETERMINATION SYSTEM 


Joseph W. Siry 
James P. Murphy 
Isabella J. Cole 


ABSTRACT 


The General Orbit Determination System currently being used for Orbit De- 
termination at the Goddard Space Flight Center has evolved over a period of 
approximately a decade. 


It was contemplated, when the system was designed, that it would come to 
be used to determine orbits of satellites of various kinds, tracked by different 
types of tracking systems, and moving in many sorts of orbits which would be 
perturbed in a variety of ways by an atmosphere having variable characteristics 
and by a gravitational field whose higher harmonics would come into play, as 
well as by the moon, the sun, and radiation pressure. As the needs arose and 
the occasions demanded, additional orbit determination capabilities to meet the 
new circumstances were incorporated into the system in accordance with the 
basic plans. During this time the program was extended to accept new data 
types and, at various times, additional sets of unknowns were incorporated into 
it. The program was also equipped to use several general perturbation and 
special perturbation orbit theories and has been adapted to operate on various 
computers. 


The purpose of this report is to set forth the formulations used in the sys- 
tem. In addition, flowcharts and program listings are also included. 


THE GODDARD GENERAL ORBIT DETERMINATION SYSTEM 


I. INTRODUCTION 


The Goddard General Orbit Determination System accepts as input a set of 
orbital parameters at a specified epoch, some of which are to be corrected, and 
a set of observations of a satellite. The output of the system includes a set of 
corrected parameters obtained by means of a weighted least squares procedure, 
correction portion of the system, which is the principal subject of this report, 
consists of nine basic section. These are: 


1. Conversion of Elements, (CE) 

2. Position of Space Vehicle, (P) 

3. Local Station Predictions, (LSP) 

4. Position in Ellipse, (PE) 

5. Position Partial Derivatives, (PP) 

6. Observation Partial Derivatives, (OP) 
7. Equations of Condition, (EQC) 

8. Least Squares Solution, (LSQ) 

9. Conversion of Corrections, (CC) 


In the next several sections of this report a description of each of these nine 
sections of the Differential Correction System, together with the mathematical 
formulations, will be given. 


This report contains a description and documentation of one version of the 
Goddard General Orbit Determination System. It records the theoretical formu- 
lations most of which, aside from the indicated material obtained from refer- 
ences 1 and 3, were derived at the end of the last decade by J. W. Siry, who also 
wrote the accompanying discussion of Section 9 of Chapter III for this report. 
The original formulations had been prepared in a form which included condensed, 
general notation and minimal discussion needed to serve as the basis for pro- 
gramming. J. P. Murphy wrote expanded versions of formulas for certain 
specific cases of interest, added discussions, and carried through preparations 
for publication. In addition, flow charts and program listings of the version in 
current use were compiled for this publication by I. J. Cole. 


The original flow diagram of this system is given in Figure 1. 


II. NOTATION 
The principal symbols employed in this report and their meanings are given 
in the following list: | 


a, semi-major axis of the satellite orbit 
b, semi-minor axis of the satellite orbit 
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E, eccentric anomaly 
e, eccentricity of the satellite orbit 


f dynamical flattening of earth 
f, true anomaly 
G, universal gravitational constant 


g, or4, the local topocentric east vector 


g, or m, the local topocentric north vector 


g, or n, the local topocentric vertical vector 


gor h,txk 


{g., go, Soff, i, 

{gg ss) Sygh {Ep --- + Boh 

g, acceleration of gravity 

g, argument of perigee 

h, local hour angle 

h, right ascension of the ascending node 
I, inclincation of orbit plane to earth's equator 
i, (1,0,0) 

 e 

A oI iS 

J ,coetficient of the nth zonal harmonic 
is (0, 1, 0) 

k, (0, 0, 1) 


4,m, direction cosines relative to the local topocentric east-west 
and north-south directions, respectively 


X, mean anomaly 


4, local topocentric east vector 


M, mean anomaly 
M_, mass of the earth 
m, local topocentric north vector 
n, mean motion | 
N,.q, coefficients multiplying the pt* power term in the time polynominal 


for the value of the mean anomaly associated with the qt® segment 
of the observational arc. ; 


se] 


n, local topocentric vertical vector 
P, period of the satellite orbit 

P,, Legendre polynomial of degree n 
P, semi-latus rectum, a(1-e?). 


p, vector directed to perigee 


q, perigee distance 


R,, mean equatorial radius of the earth 

R, , station position vector of the it? station 
r, magnitude of radius vector of the satellite 
Tr, radius vector of the satellite 


r radial distance from axis of rotation of earth to it® station 


zi? 


eee radial distance from axis of rotation of earth to surface point 
(on reference ellipsoid) directly below or above the i‘ station 


t, time 
U, potential function of the earth 


v, magnitude of velocity vector of the satellite 


P? 


Pr 


the velocity vector of the satellite 
eorrectiens-te the unknowns 


the observable quantities 


distance from surface point associated with the i* station to the earth's 


equatorial plane 

right ascension 

unit vector in direction of angular momentum 

latitude 

unit vector in a specific direction in the orbit plane 
(ax P) 

declination 

angle which the unit vector 6 makes with the nodal ray 
topocentric azimuth angle measured from the north 
local hour angle 

antenna x-angle 

antenna y-angle 

right ascension of Greenwich 

East longitude of it® station in system referred to Greenwich. 


inertial longitude of the i‘* 


Vou, 


true anomaly 


station or local sidereal time. 


range 


argument of latitude 


topocentric elevation angle 

geodetic latitude of the it" station 

longitude of the ascending node 

unit vector directed toward the ascending node 
argument of perigee 


speed of rotation of the earth 


Generally the indices and special symbols have the following meanings 


Cc, 
e, 
i, 
J, 
k, 


My 


* 


? 


index to denote computed value 

index to denote earth 

index to denote it® tracking station 

index to denote jt" unknown 

index to denote kt® observation type 

index to denote nt® observation time 

index to denote "observed" value 

index to denote initial value 

indicates long-period parameters in the Brouwer Theory 


indicates parameters in the Brouwer Theory which include 
short-period terms 


indicates total differentiation with respect to time 


indicates unit vector (e.g. a* = a/|al) 


In certain cases, a symbol is associated with more than one definition. In each 
case in which such 2 symbol is used, the meaning will be clear from the context. 


Several of the symbols in the above list are illustrated in Figure 2. 
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Figure 1-Differential Correction Program Flow Diagram 
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Figure 2?—~—The Geometry of an Orbit 


Ill. PRINCIPAL SECTIONS OF THE SYSTEM 
1. Conversion of Elements 


{x(ty), Y(to)s Z(t), X(t) ¥(to) z(to)} , 


{a e, i, 2, (ty), (ty) } or { a, e, i, 2, «,M(to) } 


serves as input and the other two sets are computed in this section. 


Values for the additional parameters, p, q, b, n, and P, are also computed in 
this section. These calculations are performed through the use of the following 
sets of formulas and others found on page 16 of this report. 


A. Given r(ty), v(t) 
Ig a |r( ty)| 


0, =- are sin jz*( tov" ( to)| 


iS 


iN 


& (ty) | ( ty) x v( 0 


(1) 


# 
Q(t,) = |k x a(ty) | 


i = arc cos | #(to) “| 


Q (ty) = arc cos | 29) i] 
P (ty) =arcecos | 2*(t)-2(ty)| 


@ (ty) = (ty) - v( ty) 
B. Given Foy Vos oe 


2 
pL 
a. — 


2p Se Be 


ibd hal 0)” 


(2) 





ay? 


. E= -e”) = ro 
Vy = are cos | ——~——~—® 
, = e lo 


C. Given a, e, Uy 


a(1-e7) 
0” 1ltecos Vy 








Tg Vo 


ee (3) 
cos u(t) +e 7 t 1-e? sin v(t) | 
arc cos ace nnn a arc S 1m j-— : 


l-e cosv(t) 1 re cos v(t) 


i 


E (t) 


| Ee E(t)-e P — sin E(t) 
v(t) =arce cos —— | Sare sin’. —— a: 


‘I-e cosE(t) _ Ise cos E(t) 


M(t) = E(t) -e sin E(t) = M(t,)) +n (t-t,) 


D. Additional Parameters 


b=aVi-e? (4) 


2. Position of Space Vehicle 


In this portion of the system the position of a space vehicle is computed by 
means of a special perturbation method, such as a Cowell integration method, 
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‘or by means of a general perturbation method, such as the one associated with 
ithe Brouwer theory. As an illustration of the function of this portion of the 

. system we shall consider the case of an ephemeris of asatellite generated by 
means of the Brouwer theory (see References 1 and 2). The potential function* for 
this theory is 


5 n 


ho | J n R? ae 
r n 


(9) 








na? 


The position and velocity of a spacecraft at any time, t, are found by substitut- 
ing the time into Equations (6) through (10). The fundamental plane is the equator 
with the ea ha toward the vernal equinox. In this theory an initial set of 
elements a" I" ,45,8 > and hj at an epoch time, t ),are estimated or ob- 
tained from oe wrevious iteration of the differential correction process. These 
parameters are the constants of integration of the theory and are related to the 
osculating Keplerian elements {a, e, I, 4, g,h} through the following formulas 
found in References 1 and 2. The secular terms are 


3 J,R? 3 JnRe 
tse = 54 u t dee iy 1— 36? aides: eoesceemmets 
0 Mo { 4, ae nh 128 404 7? 


*[-15 4167 4 2577+(30-967- 9077) 674+(105+4+ 1447 + 2577) 64] 





45 J,R » 
4)? 6"2(3_ 30624 3504]. 
~ 128 ahs 7 
7 
(6) 
3 J,R 3 JGR 
ge = g op enyt:. aRe 567) 4 ie oe 
4) a’? 74 * 428 a4 78 


*[-35 4247 + 25774 (90-19217- 12672) 6? + (385 4360744572) 04] 


15 J,R° 
~ 128 a’4 78 





[21-977 4(-27041267)7)02 + (385-1899? 94} 


*Note that in Brouwer’s original paper, the convention ps = GM, was employed. 
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Pa?) hh” t 3 J2Re6 3 Take € 1 9 2 6 
he hh a hy a 28 ay ae 4,8 mie 5+4127+97*) 








15 J,R 
+ (-35-36 7-577) 67] ~ 35 JR 


a 





n4 8 


(5-377) 6 (3- tale 





where, 6 =cos I”, 7 = Y1- e”2 and Ay =K/ Ya" s. 

In cases in which the drag perturbation is not too large, it is convenient to 
represent its principal effect by means of quadratic and cubic terms in the mean 
anomaly. The coefficients Nig? where p = 2 or 3, refer to terms of the quadratic 
and cubic type respectively. Since a single pair of constants might not be accurate 
enough over the entire observational arc, up to twenty aan may be em- 
ployed corresponding to the epochs, t, , where q = 0, 1, , 19, at which the 
intervals of interest begin. If the arc is not subdivided: the subscript q = 0 is 
understood but not always written. 


The long-period terms fore and I are 


4 J,R R2e" | ; 
5,e —2£  (1-116?-406" (1-567)-*) 3 
A 116 al’2 2 

ae 


5 J,R2e" 


& 


f 2 4 oe 2 -2 it 
= 46. J, a’?n 2 L1-36 -8¢ (1. 56 ) feo 22 





~J,R | - JR 
. zo 2 sin I" 3 ~3* sin I! (44 3e"*)- 
258° 558 


| 44 Ree a2 
[1-967 2464 (1-567) ‘f Sing 452-4 35 “eee een te 


192 J, a3 vf 
[1-56-1604 (1-56?)""] sin 3g" 


e058 
| 7 tan I” 
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The secular and long-period terms for 4, g, and h, are, respectively, : 





J,R? 2 
Links {- ciety & 1167 4064 (1- 562)7"] 4 _5TeRe 
16a"2y ; 16J, qi4 n 


n I"; 


ti — —__—_-—_—. sin I" (449e"?)- 
(2J,ae” 32J,a°7 3e" 


{ Leen | 5J,R3 


ee ee ee a ou 35 J Re a 
-(1-99?_2464(1-562)7] $ cos gt"--— 2 sinI"> 
| 192 J, a"’3y 3 





-(1-56?- 1664 (1-567)""] cos 3g" 


-J,R | | 
gi = et {ee 2 £_{(24e"2)~11 (24 30") 62-40 (245e"2)-. 
32a"2 7A 


64 (1-56?)71_ 400e"266(1- 52)~71 


5J,R* R?2 


emerge a [24e"2-3 (243e"") 62-8 (245e"”) - 
32J,a"°7 


+64 (1-562)71_80e"266 (1-56?)"7] } sin 2g" 












e" sinI’ 


J3R, (— eG? :) ite Re 


aate Vo sin) a1 





f 1 Cer ee eo x 
Bu eee (443e"2) 4e"sin I” (2649e") 
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15],R20%e" 


es es eines Ree sinl" (44 3e") ° 
16], a3 76 


. (1-562- 1664 (1~562)74] 4 


[341667 (1-56?)"* +4004 (1- sean} cos g" 





35j.R3 | e%3g2 ~ 
+ (ants: e"sinI' '(342e"?)— - Em ue \{1- 567.1667 (1- 562)7"] 
576J,a"* 7? sin I” 


3555 e3 G*R? a a 
~———_—— sin I” (54326? (1-56?)" "+ 8064(1~56?)"*] cos 32” 
288J,a"376 


JAR. ~1 2 
h’ =h"y J-2—__._ [11 4 806? (1-5 62)" " 4 20064 (1-56?)77] 
16a"? 74 


534 e"26R 2 


Re 


2 [341662 (1 562)7} 
16], a"? yf 


Je’ OR 
+40et asa ’)} sin2ge”4 {- p< ne 
2J,a"7* sin Y Oi 
SJ, e” ORS 


75S. (44.3e"2) [(1-967..2464 (1-567) 
325, a’37®sin I" 


_15J,e" OR , 
——————— sinI"(4+3e"?) [341692 (1-562)7* + 4064(1 4567)"7] bcos 2" 
16], a"3x 6 

35 = J,e"3 AR? 
+d a 2. [1 56? 1664 (1-562)7] 


576 Js a3 6 


sinl” 


35 JsetOR. sind” [543262 (1-562)! 48064(1- sy | cos 3g" 


* 988 Joa° 3 
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After adding the short-period terms, ‘the e osculating elements are > obtained | from - 


Psa gis. a 
az=a” {1+- ~ (1-362) | gem 
La"? | 


n3 ) 
+3 (1.67) cos ae 7 
3 " 


- 


2 J,R f 3. , 
e=e"16 12+ So. ae -~(1-367) (a 73 : 
: 2e" { 2a 02 bE r'3 


+3(1-6?) (So -3 i ims aes 28| 








r 


Tr 


je 


2a"? 4 





(1-67) [3e" cos (2¢g'+ f') 


+" cos (2's 381} 
(7) 
J OR? 
I=-1"'38 ea V1 wy [3 cos(2g' re ie) | 


4a "2 7A 


+3e"* cos (2¢'+ f')+e"cos (2g'43f')] 


J,R? qil2 qt . 
oe hae of 2(1- 3.6") | 2 7? ean sin f' 


Se” i r‘ r! 


+3(1-6*) | - oy mt — al }sin. (2¢'+f') 


a"? a” 4\ 24 5; Ron? 
+[——7 +—+— | sin (2g43f")) | 
ri? r‘ 3 / . Fe 
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 «,R 


: u2 a“ 
e'a“7 


r r 


2 al2 2 a” . i i 
Holts o*) -( cl oA) sin(2g'+f') 
r! i 





r 


a2 ; qa" 1 ; ; 
+ —— P+—t— sin(2g +3") 
r‘? cr 3 


J,R? 


€ 


£ {=6(1-58 (Ft! -e" sin 9 
Ba" 74 





n 


+ (3-567) [3 sin(2g'+2f') 


+3e"sin(2g'+f')ie" sin(2g' + ssi} 


J, OR? 


h = h'~ =. [6(f'-~t'4e" sin f') 
4a"? fA 





~3sin(2g'+2f')-3e" sin(2g'4f') -e" sin(2¢'+3f')] 
where f' and r‘ are computed from 


E'-e" sinE' =¢2' 


tan—é? (at * 
n—f' =-,/—— —_ 
‘ 2 1-e" on” 


— =(lie" cos f')/(1-e"?) 
r 


(8) 


15 


The position and velocity vectors in rectangular coordinates may then be ob- 
tained from 


x A BO cosE-e 
y |={ A BO sinE =r, (t) 
Zz A, BO 0 
and (9) 
x A, B, 0 -sinE 
y |==nl ABO E 
=n os cos = IX, (t) 
Zz A, BO 0 


where 
E-~esinE = 74 
and where 
A, = a (cos g cos h-sin g sin h cos I) 
A, = a (sing cos h cos I + cos g sinh ) 
A, =a sin I sin g 
| (10) 
| aV1-—e? (sing cos h + cos g sin h cos I ) | 
B =a Vi-e? (cos g cos h cos I - sin g sin h) 


B. = a Vl-e* sin I cos g 


“Th the differential correction of the orbit, the constants of integration a* 
"I" lags gy’, and h)"are determined. One or more drag parameters are 
ales solved for if this is appropriate. 


16 


3. Local Station Predictions 


In this portion of the system computed values for the various observations 
at the times of observation are obtained. An actual observable at time, t,, taken 
at the it» station and of the k‘" type, is denoted by the symbol View. 6 Re): 
while the computed value of this observable is denoted by Y.., ; (t_). In Table 
1 there appears a list of the various observation types, the symbols used to 
designate them, and the value of the designator k for each type. 


Table 1 
Observation Types —y, 






Symbol 





range 
east-west direction cosine 
north-south direction cosine 
azimuth 

elevation 

right ascension 

declination 

local hour angle 

range rate 

east-west direction cosine rate 
north-south direction cosine rate 
azimuth rate 

elevation rate 

right ascension rate 

declination rate 

local hour angle rate 

antenna x-angle 
antenna y-angle 


on Door Ww be | 


QQ OB oo eo BGO SD, 


OD DB Dt mw 
b= 


NS 


Formulas for obtaining computed values of the quantities appearing in Table 
1 will now be developed. Before these formulas are obtained, it is convenient to 
give expressions for the following quantities. 


R 


=i 


4 


i 


the station position vector 
the local topocentric east vector 
m; the local topocentric north vector 


n: the local topocentric vertical vector 


ak 


h,; ¢,;x k 
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and their rates of change as functions of the coordinates of the it" tracking 
station. The inertial longitude or local siderealtime, A, (t), of the i th station 
at time tis given by 


A, (t) =Ag, trAg (tg) +2, (t- ty) (11) 


where A¢;, \, (to): and «denote, respectively, the east longitude of the ith sta- 
tion in the system referred to Greenwich, the right ascension of the Greenwich 
meridian at t), and the earth's angular velocity. Then, 


4; (t)=- sind, (t)i+cos dr, (t)j 

m, (t) =~ sing,, cosa, (t)i-sing,, sind, (t)j+cos¢,;k 

n, (t) = cos¢,, cos A, (t)itcosd¢,, sind, (t)j+sin¢,, k 

h, (t) = cosd, (t)itsinda, (t)j 

(12) 
4, (t) = - wh, (t) 

m. Cty wo, sing,, 4, (t) 


n, (t) = w, COS Pai 4. (t) 


h, (t) =o, 2,(t) 


i 


where ¢,, denotes the geodetic latitude of the i‘ station. Define p 2; and ¢,; to be 


p.c= (1~ f)? tan Pai 


(13) 


Pei =arce tanp,,; 


where f is the flattening. The radial distance r,., from the axis of rotation of 
the earth to the surface point on the reference ellipsoid below or above the in 


station is given by 
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(14) 





where R_ is the mean equatorial radius of the earth. The radial distance r,. 


ie ea i 


from the axis of rotation of the earth to the i‘” station is given by 


ros=%,.; tH, cos %,, (15) 


Zi ZS 


where H, is the height of the it station above the reference ellipsoid. The 
distance z,,; from the it station surface point on the reference ellipsoid below 
or above the station to the earth's equatorial plane is given by 


ey = Pej Fat j (16) 


The rectangular coordinates x, (t), y, (t), z : of the it" station and their rates 
of change are given by 


x, (t) =r), cos i, (t) 


Y; (t) = ro sink, (t) 
Z,=2,, +H; sin $,, 
(17) 
x. Cl) Shc 3 sind, (t) 
¥Y, (t)=or,, cosh, (t) 
Z. =O 
\ 
Then, R, (t) and R, (t) are given by 
R, (t) = KX (t)ity, (t) j +2,k 
(18) 


R(t) =%, (Daisy, (Oj 
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The vector from the i‘t* station to the space vehicle, and the rate of change, are 
given, respectively, by 


(19) 
2b, (t) = 8, (t) -B, (t) - 


It is now possible to write explicit formulas for computed values of the eighteen 
types of observations listed in Table 1. The output of this portion of the system 
contains computed values of the observed quantities at each time, t_. 


Formulas involving inverse tangent functions are quadrant-oriented, i.e., 
information needed to determine quadrants is contained within them. 


Q 


y a oe P; (t) _ le; (t)| 
y 27 4. (t) =X. (t) - b (t) 


Yo.a,4 =m, (t) =m, (t) pF (t) 


Yoj4,i= 0. (t)= arc tan {[p. (t) + 2, (t)/p, (t) +m, (t)]} 


%o,5,i = op, (t) =are sin In, (t) - b, (t)] 


c,6,i =a, (t) = arc tan { Ip; (t): ive. (t) - iJ} 


<< 
La | 
I 


8, (t) = arc sin [k- p, (t)! 


ri 


re =h, (t) = arc tan { lp; (t)- 4./ 65 (t) +h, (t)] } 


Ned. = b(t) = 2; CE) 250 
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Ye 10, = 4, (0) = 4, (0-68 (t) + 2,00 <¢ (t) 


Yo1,, =m, (t) =m, (t)-p; 5 (t) +m, er m2 (t) 


¥oi12, A = 0 .(t) _ 





; igy-& (O14 <2 (t) 2 z,col} rx (t)-m.(t)] {4 (t)- a,O14] FAC-m (0 | (gi (t) -m,(t)] 


[pe (t)- A Ole L(t): -m. (1? 


. |. d . 
Voag., = 9, (0) = {| ace (t): 240] +L P(t): cor}/; 


Yea. = a, (t) = 


{| aes i| ord | ae bitord i| geo} / {eco 4) dco 


1-[*(t)-k] 





1-[#(t)-n,(t)}? 





(. Lp. oy d, (#1 +L ae ee 4. 400] tg, (t)-h. as {6 (t)-h. ong 2; (t)-h. -a,co}} [p.(t)-4, (t)] 
Lp, Ct) 4, (t)174 Lo, (t)-h. ty)? 


Yay ,= 9, ,(t)=are tan {tot -2,cn1/te(e)-0, DI} 


Yoo1g = 92,,(0=are sin [oi (t)-m,(t)] (20) 
where 
oe 1 
t)- wes [ot (t)-p, (t)] p(t) 
rr es at 2 p, (t) 2) L; P; os 


The expressions, y .,x,i (t), then are used to calculate the computed value of an 
observation of the k*® type, relative to the it* station, at the time t. 
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In addition, the times at which 


are provided in the output. 
4. Position in Ellipse 


The input to this portion of the system is the set of parametersfa, e, i,0, 
w, M (t,)} obtained from either the Conversion of Elements Section or the 
Conversion of Corrections Section. The output contains the vector quanti- 
ties a(t), B(t),y (t), p(t), q(t), r (t), r (t) obtained from the formulas listed below. 
Approximate values of 2 and w can be obtained from 


Oe) SOE) EO Gat.) 
(21) 


w(t) =o (to) +@(t- ty) 


where 
27 cos I ‘ 
ipo Rey 
Pp? aaa 
5 | 
An (1 -q sin’ r] 
Pp2 5 
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then 
Q(t) =i cos 2 (t) + j sin{) (t) 
a(t) =kcos I+ [Q(t)xk] sinlI 


B(t) =Q2(t) cos8,+4 [a(t) x Q(t)] sins, 
y (t) = a(t) x B(t) a 


p(t) = B(t) cos [w(t) -8,] + y(t) sin [w(t) - 54] 
g (t) = A(t) sin [ew (t) -6,] + y(t) cos Lav(ty = 5] 


4 (t) = ap (t) [cos E (t)-e] +bq(t) sin E(t) 


beos E(t) q(t) -a sinE(t) p(t) 


r(t) =n ea 


where E(t) is obtained through Kepler's equation, and 6, here is the angle which 
the unit vector 8 makes with the nodal ray. This angle can be set equal to w, wg + %, 
w+v, or some other specified angle. 


5. Position Partial Derivatives 


This portion of the system is used to evaluate partial derivatives of the 
form 


or (t) 


Ox 
and 





for j=1,2,...,n, where quantities,x;,j= 1, 2,...,n, are the unknowns. 


f 
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A discussion of the position partial derivatives, the unknowns, and the formulas 
which give corrections to the elements in terms of the unknowns is contained in the 
section entitled Conversion of Corrections. (Cf. reference 3 in connection with re- 
lations such as (24~1) and (24-3) and related portions of this section and the Conversion 
of Corrections Section. ) 





Let 
r(t)=a [l-ecos E(t)], 
C(t) = (1 - e?) cos E(t), (23) 
S(t) =-Vi -e? sin E(t), 
and 
K = 2 cos E(t,) +e sin? E(t,). 
Then 
— =r(t)-= = (t ~t,) E(t), (24-1) 











; | 2r3(t) 


Or(t) | E(t) | 3 
ox, 2 


Ce to) r(t) (24-2) 





or(t)__cosE(t) +e . 4) afer Oo wig ee no E(t) (24-8) 
OX, 1-e? 1 -~e? 1 - e? 


or(t) cosa? 





{a S(t) r(t) + cos E(t) a(t) x reel (24-4) 
r(t) 


ert) as hee {K ~ 2e ~C(t)}p (t) 


V1 -e? 


+ {1-~[K-cosE(t)] cosE(t)} aco] (24-5) 


24. 


Or(t) _ 





3 


or (t) 


_ nat 


= : VAP or tt Is Ei 
~e {cosE(t) [sin? E(t) + cos*E(t,)] +2cos E(t,)} 


+e? (2 cos*E(t) + cos*E(t,)] - e® cos? E(t)}p (t) 


+S cey{ [cos E(t,)-cos E(t)] lelcos E(t) +cosE(t,)] - ai} act)| (24-6) 


— 20 (t) xr (t) 


or (t) 
Ox, 





or (t) 
ry vs 





dF (t) 
aoe 





or{t) 
OX, 





ai (t) 
zt 





ert) 


a 





Or (t) _ 





=a(t)xr(t) 


= B(t) xr (t) 


—= B(t) xr(t) 


= y(t) xr(t) 


=y(t)xr(t) 


25, C(t ede 8 (ty) 








or (t) — 


= "2 
Ox, 








+ C(ty) “5a + e(ty) =—— 
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(24-7) 


(24-8) 


(24-9) 


(24-10) 


(24-11) 


(24-12) 


(24-13) 


(24-14) 

































































Or(t) .. | _ dr (t) r (t) or (t) 
| =" = [l+e cosE(t,)] eG ve = + S(t) ox (24-15) 
or 
oF SZ, = [l+ecos E(t,)] eed C(t) < — + S(t 5 = ad (24-16) 
0 Re 1 Xo *3 
CBG) pay. toe = 24-17 
cra = § (ty) os, — le +cosE(ty)] . ; ( %) 
oz (t) =S(ty) - = — ~ [fe +cosE(t,)] - ee — 24-18) 
Oxy =o 
Or(t) _ z(t) (t - ty? (24-19) 
Oo® 
a(t) ¢t (t- ty)? —s 
= ((cosE -e) pivi- e* sin E ql (24-20) 
OX4 eee 
or (t) _ aoe or (t) (24-21) 
Oxy, 9X4 
or(t) or (t) | 
————- =n(t-t 5 24-22 
Pm ; - ( ) 
or Or (t) _ - a(l-cosE ae ) 
——_—___—_———- [S(t) p+ C(t) q] (24-23) 
Oxy, (1 - e*) (1 -e cos E) 
1 - E 
or (t) Slick “crahidechcoiac a [(e -cos E)p +S (t) ql. (24-24) 


OX 3 fie 


The partial derivatives of r (t) andr (t) with respect to the unknowns 

Xo 04g and x4, +q are the same as the partial derivatives with respect to x,, 
and x,,; respectively, when q = 0. For other values of the index, in the range 

q=1,2,. , 19, the partial derivatives of r(t) andr(t) with respect to 
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Xootg and x 40+q are the same, respectively, as the partial derivatives with re- 
eed to Xo and X4) With the exception that the former partials are referred. 
to the epoch t, , while the latter partials are referred to the epoch to. 


This portion of the program uses, as input, the specification of the set of 
unknown parameters, x, , and the times t, ,n = 1, 2,... , at which the appro- 
priate position partial dexivatives are to he ne ee This portion of the pro- 
gram also uses as input either the output of the Position in Ellipse Section of the 
program or corresponding information from the portion of the program which is 
used to calculate the satellite position. 


6. Observation Partial Derivatives 


The inputs to this portion of the system are the outputs of the Local Station 
Predictions Section and the Position Partial Derivatives Section. The oust con- 
tains the values of the partial derivatives of the observation of type k from the i* 
tracking station at time tn with respect to the unknowns, x; , for various values of the 
indices. It will be understood that the quantities suchas m; (t), a. (t), p* (t), etc. are 
functions of the time, t, and the it® tracking station, and therefore, at convenience, 
we shall, attimes, write m, g, e+etc. The partial derivatives are now given. 


OP. ee OE 
Ox 7 £ ; Ox 
j j 
on 
ae ae cic 
Xx. 
j 
om oe 
Ox, -£8 7) : 
* aa 2 m 
o (ceo (2 
PY.) 7 (e Ox, t 
oP 
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oa (e* 2) (c)° i) - D (c}- i) 





j (o* i)? 4 (pe i)? 
08 
Ox. | 
j 
oh - Oa 
x. Ox 


30, (2B) (ec) 4d) - Ce" (chm) 
(6 +n)? 4 (0-4)? 


36, (¢) +m) 


ox, fl- (a +m)? 


Op _ or * or 
Ox. & é| (= a] 

j j j 
<= (ci- 2) + (c) +4) 


om (ci-m) + (éi-m) (25) 
x 


ot om *. p 
ap & [(o* +m) + (d-m)] - (=) (or +4) + (d-4)) 


j (o* +m)? + (6 -? 











Ox, 


(oF +m)? + (o£)? 


a(S {2 m) [Ce -mh) + (d° -m)] +(e Ce £) + (d° 2 
; | 
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a _ in) ite n) 


Jee n) (e ‘n) Uden) + (+n) ] 
[1-6 -n)?]3/2 


ot ? 
c 7) ad - (& Je j) 


a (gi)? + GD? 
at 
& \e v-(F aa i) 
Fe, ie | SA ls | en 


(e* i)? 4 (Ge i)e 


7 a(S) ee (d-i) + (6+ i) (d- 2] 
rt aaa 


a GD (FD GD 









Ox, l-(e kk)? = [1-(6* -)? 382 
aha 
Ox. Ox, 
where % 
3p" dp 1 
c) =o -d=—— =— 
Ox. dt Pp 
and | 
. OL 3 
I p Pp 
J - ME cn ORY; ph Oe —— — CJ 
c ae -£ On d=—--c'p 
J J J 
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7. Equations of Condition 


The input to this portion of the system includes the values of the various 
Yo.x,i (tn), values for weights w, ; (tn), and the outputs of the Observation 
Partial Derivatives Section and the Local Station Predictions Section. The out- 
put of this portion of the system contains the equations of condition and the 
normal equations. 


The equations of condition are 
wa ae a 
S a x, << Yo kei (t_) set Yo. i (t_) ; (26) 
| ie ; 


The normal equations are 


a | ) ¥ | oy; OY, 
Oo Weg eee aw, 
aa Sue J k,. 


2 : 1=0 (A=1,2,°>° *) (27 
; Ox, Ox | en) 
i j 5 r. 





where the weights, w, ,;, are functions of the observation type, estimated or 
observed uncertainties, and factors associated with the geometry of a particular 
pass at a particular station. Weights, including null weights, can be assigned 
to subsets of observations selected in terms of time, station, type, or residual 
characteristics. 


8. Least Squares Solution 


The input to this portion of the system is the output of the Equations of 
Condition Section. The output contains values for the various quantities, x j? 
and statistical information associated with the fit to the observations. 


9. Conversion of Corrections 


The input to this portion of the system consists of the output of the Least 
Squares Solution Section, the Conversion of Elements Section and the Conversion 
of Corrections Section associated with the current iteration. The output includes 
the original value, the previous value, the new value of each of the parameters, 
and the standard deviation of fit, and its increment. | 
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Corrections to the previous values or the original values of the elements — 


and associated parameters are obtained in the manner indicated in the following 
discussion. 


The partial derivatives and the corresponding expressions for the differen- 
tial changes in the elements as functions of the unknowns are employed in sets. 
For example, when the partial derivatives 





= (28) 


j=1,2,...,6, i.e., the expressions (24-1), (24-3), (24-5), (24-7), (24-9), and 
(24-11), are employed, the use of formulas for obtaining differential changes in 
the elements as functions of the unknowns can be indicated in the following way. 


The expression 


(29) 


S8az=ax, 


gives the differential change, 6a, in the semi-major axis, a,as a function of the 
unknown, x, . | 
Similarly, the expression 


. 6e= Xs (30) 


gives the differential change, Se, in the eccentricity, e , as a function of the un- 


known, x, . 


The differential change, 5i, in the inclination, i, is given by the relation 
6i = 6Bcos 6, - dysin 4, , (31) 
where the quantities 6 8 and 5 y are obtained from the relations 


and 
8 y= Xe : (33) 


31 


Hence, the expression for i directly in terms of the unknowns is 
d1 =X, COS 0, — X, sin 6,. (34) 


In similar fashion, the expression obtained for the differential change, 62, 
in the right ascension of the ascending node, , directly in terms of the unknowns 
is 


6Q=cse i (x, sin 5, +x, cos 3,), (35) 


the expression obtained for the differential change, 6M,, in the mean anomaly at 
the epoch, M,, directly in terms of the unknown is 


(1 -e cos E,)* 
OM, a 0 i X : (36) 
Le : 


and the expression obtained for the differential change, 5 w, in the argument of 
perigee, w, directly in terms of the unknowns is 


x 
§w=x,-— —ctn i (x, sin 6, +X, cos 64): (37) 
e 


The relationships between these two sets of formulas for computation, i.e., those 
for the partial derivatives, and those for the corresponding differential changes 
in the elements as functions of the unknowns, can be indicated in the following 
way. 


In view of the relation (29) we can write 





=a (38) 


from which expression (24-1) can be derived. (Cf. reference 3 in connection with 
this relation and portions of the following discussion.) In view of the relation 
(30) we can write 





of 85 39 
ox, de ' (39) 


from which expression (24-3) follows. 
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orbit plane about the B and Y axes, as can be seen, eeuecisely from the pairs 
of expressions (24-9) and (32), and (24-11) and 83). We can also write the ex- 
pression (7) in the following form: i 


Sw= 8a, -ctni (8Bsin 8, + 8ycos 3,), (40) 


where the terms involving 58 and 5y correspond to the differential changes inw 
due to differential rotations of the orbit plane about the 6 andy axes, respec- 
tively, and the term 5 w, corresponds to differential changes in w due to differ- 
ential changes within the orbit plane, i.e., to differential rotations about the a 
axis, i.e., 





Ck 
re 4 
and 
or (43: 
Ta TEE: el 
and, from (37) and (40), 
| | 1 


In view of (86) and (44), we have 





de Or [GQ+ecosE, |] ar Fy | 
Ox, 9M | (fiter)e | 2% b &. 


Ww 
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See ee ee 


4 9M, 


Ox 





from which expressions (24-5) and (24-7), respectively, can be derived. 


The partial derivatives 


er, 
|>s 


(47) 


QD 
m 


j = 1, 2 3: 5, 6, 19, 


i.e., the expressions (24-1), (24-3), (24-5), (24-9), (24-11), and (24-23), are fre- 
quently employed. The use of formulas for obtaining differential changes in the 
elements as functions of the unknowns in this case can be indicated in the 
following way. 


The expressions (29), 80), (84), and (35) occur as in the case discussed 
previously. The differential changes in the mean anomaly at the epoch and the 
argument of perigee obtained in this case will be denoted, respectively, by the 
symbols 


oMoy ; and 0 Ge, ’ 


in order to distinguish them from the corresponding quantities which were 
discussed above. 
The expression obtained for 5M,, , directly in terms of the unknowns is, 


| 01? 
in this case, 


er ee ae 7] (48) 


V1 — e? 
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The expression obtained for 5«,, directly in terms of the unknowns is, in this 
case, 


XK. 
0W@, = -—- ctn i (%, sin 6, + X, cos 8,)- (49) 


We can also write the expression (49) in the following form: 


dw, = 6a,, -ctn i (6B sin 6, + dy cos 34,), (50) 


where, here, the terms involving 56 and §y correspond to the differential 
changes in the argument of perigee due to differential rotations of the orbit | 
plane about the 6 and y axes, respectively, and the term 6w,, corresponds to 
differential changes in the argument of perigee due to differential changes within 
thé orbit plane, i.e., to differential rotations about the a axis, i.e., we have the 
relations (41) and (42) and 





re 51 
30, -~axt, (ol) 
and, from (49) and (50), 
#3 ) 
1, =a (52) 
7 | 
In view of (48) and (52) we have 
Oe ok (eee fe [-2 | (53) 
Cty Mon eee Oeics dle °F 


39D 


and 


or or (1 -ecos E,)? (64) 
ox, | “it 


from which expressions (24-5) and (24-23), respectively, can be derived. 


Corrections to previous or original values of other parameters of interest 
are obtained with the aid of formulas (55) through (67). 





5 
8 i. = Ky : (55) 
80, =X, (57) 
5 n, = n? Xio> (58) 
ns = n? Xo (59) 


The corrections 6n, , and én, , bear the same relationship to the unknowns 
and X,, ; respectively, as do the corrections 5n, and 5n, to the unknowns 
and x 


11 » respectively. 


X50 


X10 


The ratio of Sn, , to x, +q 18 the same as the ratio of 5n, to X49, for 
q= 0,1, 2,---, 19, and similarly, the ratio of 5n, , to X,9,, is the same as 


113 
- or | 
or= — xX., (60) 
. Ox: * 
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Sy=8r-j, (63) 

dz=s5r°k, (64) 

Sxe or <4, (65) 

SyadE: ij, (66) 
and 

$2=Sr¢k- (67) 


These latter relations are used, for example, when the spacecraft position 
is specified by means of a special perturbation numerical integration method 
referred to Cartesian coordinates. 


This completes the outline of the contents of the nine basic portions of the 
Goddard General Orbit Determination System. 


| In the previous pages of this report the mathematical description of the 

- Goddard General Orbit Determination System is presented. Appendix A contains 
the schematic flowchart for the differential correction portion of the system. is, 

In Appendices B and C, respectively, the program flowchart and program list~ 

ing are to be found. It is hoped that the formulation together with the program 


| information will be of assistance to the many users of the Goddard General Orbit 





Rect : iyatem a as s well as to the recipients of the orbital information 
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APPENDIX A 
SCHEMATIC FLOW CHART OF THE 
DIFFERENTIAL CORRECTION SYSTEM 








INITIALIZE THE D.C., i.e. | 
1. PRINT RUN IDENTIFICATION, SATELLITE IDENTIFICATION 
2. LOAD DRAG DATA, ELEMENTS, AND STATISTICAL DATA 


| START es taperanesrnenas 


COMPUTE ELEMENTS OR 
VECTORS AT EPOCH TIME 





READ STANDARD DEVIATION PARAMETERS, 
MAXIMUM NUMBER OF D.C. ITERATIONS, 
AND THE NUMBER OF ITERATIONS FOR EACH 
SET OF UNKNOWNS TO BE USED 


INITIALIZE WORK AREA FOR 
UNKNOWNS TO BE 
| CORRECTED ON 









| LOAD kt® set | 








is * 
THIS \ 
SENTINEL TO \ 
INDICATE THAT ALL * 
UNKNOWNS - 
HAVE BEEN 
\. USED 
NC 2? y 
















SET ITERATION COUNTER 
FOR kth SET OF 
UNKNOWNS TO ZERO 







NO es 


, YES 


| STOP YES 







WILL | 

CONSTRAINT \ 
( WEIGHTS BE SUPPLIED > 
\ EXTERNALLY 
? 





READ INFORMATION ON 
CONSTRAINT WEIGHTS 






NO 
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| COMPUTE CONSTRAINT |___ 


— | READ INFORMATION ON 
| WEIGHTS | a) TYPE OF CULLING DESIRED 





INITIALIZE ith ITERATION BY SETTING TO ZERO: 
1. THE RIGHT HAND SIDES OF THE EQUATIONS OF CONDITION . 
2. THE NUMBER OF EQUATIONS OF CONDITION aaa 
3. THE ROOT MEAN SQUARE FOR EACH OBSERVATION TYPE =—-- 3 
4. THE NUMBER OF OBSERVATIONS OF EACH TYPE FOR THE ith 
ITERATION 





AND 1 TO ITERATION COUNTER FOR: 
1. THE kth SET OF UNKNOWNS 
2. THE ith ITERATION 














READ jth 


INITIALIZE ORBIT GENERATOR AND aoe 
CLEAR NORMAL MATRIX WORKING AREA | \ | OBSERVATION | 





















/ ASTHEj|th =~ 
OBSERVATION 
< THE LAST 
\. OBSERVATION 
? 


ISTHE jth * 
OBSERVATION 
TO BE 


CULLED 
? 


ie te 







| SET OBSERVATION 
WEIGHT =0 
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is TIME’ 
AND STATION » 
NAME THE SAME AS 
. FOR THE (j-1)th 
\ OBSERVATION 
™“ oP 


YES 7" | COMPUTE UNCORRECTED 
i . COMPUTED OBSERVATION 


COMPUTE OBSERVATION MINUS 
COMPUTED OBSERVATION = (O-C) 


STORE (O-C) TIMES OBSERVATION WEIGHT AS | 
RIGHT HAND SIDE OF EQUATION OF CONDITION 
AT TIME OBSERVATION | 


OBSERVATION 


POSITION PARTIALS, PP , PARTI ALS, Op 


COMPUTE PARTIAL OF POSITION 
AND VELOCITY WITH RESPECT TO 
kth UNKNOWN 


COMPUTE PARTIAL OF OBSERVATION 
WITH RESPECT TO kth UNKNOWN 





STORE OBSERVATION WEIGHT 
TIMES PARTIAL OF OBSERVATION 


AS COEFFICIENT OF EQUATION 
OF CONDITION 













ARE ALL» 

COEFFICIENTS \ 

¢ OF EQUATIONS OF 

\. CONDITION, 

‘\\. COMPUTED 
? 


YES | 
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1. COMPUTE A CONSTRAINT EQUATION FOR EACH UNKNOWN USED 
2. AUGMENT THE NORMAL MATRIX 
3. SOLVE THE NORMAL MATRIX FOR THE UNKNOWNS 


COMPUTE CORRECTION (DUE TO UNKNOWNS) TO | | me 
EPOCH ELEMENTS AND TO DRAG toa 
























HAVE 
THE kth SET 
OF UNKNOWNS 
BEEN USED FOR THE 
MAXIMUM NUMBER 
OF ITERATIONS 


NO 






HAS i 
CONVERGENCE \ 
OCCURRED USING 
THE kth SET OF 
UNKNOWNS 
Ny ? 


NO 
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1, AUGMENT NORMAL MATRIX ; 
2. ADD ((O-C) (OBSERVED WEIGHT) )* TO 
a. ROOT MEAN SQUARE SUM FOR THIS OBSERVATION TYPE _ 
b. SUM OF SQUARED RIGHT HAND SIDES OF EQUATION OF 
CONDITION USED IN ith ITERATION 
3, ADD 1 TO pth OBSERVATION TYPE COUNTER 
4, ADD:1 TO gth EQUATION OF CONDITION COUNTER FOR ith 
ITERATION 














| COMPUTE POSITION OF STATION AT | | STATION POSITION 
THE TIME OF THE jth OBSERVATION ra ORIENTATION, SPO 













ISTHE ‘% 

TIME OF THE \ 

jth OBSERVATION» 
THE SAME AS THE TIME 

| OF THE (j-1)th 

~ OBSERVATION 
. 9 










COMPUTE POSITION AND 
VELOCITY VECTORS AT : 
OBSERVATION TIME 


ORBIT 






GENERATOR 


COMPUTE POSITION 


IN ELLIPSE nes 
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APPENDIX B 


Differential Correction System Flowchart 
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The Differential Correction program is designed so that the basic computa- 
tions are performed by several subroutines. This portion of this paper presents 
the logic of these subroutines and describes their relationships to each other 
and to the main or executive program. It is intended to be an aid in relating 
the actual computations to the formulae given earlier and to show the logical 
flow of these computations. 


The location statements (Q statements) and constant statements (V state- 
ments) for each subroutine are presented along with a Table of Contents and 
Cross-Reference Listing for the subroutine. The Cross-Reference Listings 
show for each label in the subroutine the page and symbol number for the 
label itself and for all points in the flow charts at which transfers to it are 
found. These latter points are referred to as references in the Cross Reference 
Listings. These page numbers refer to the flow charts and are at the right 
uppermost corner of each flow chart page. They are not to be confused with the 
page numbers of this paper itself. An asterisk, *, indicates that there are trans- 
fers to a label other than the one shown. 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


NASA-GSFC MISSION AND 
TRAJECTORY ANALYSIS. 
DIVISION, PROGRAMMED 
BY THE PROGRAM SYSTEMS 
BRANCH, COMPILED FOR 
PUBLICATION BY I. J. 
GOLE, MISSION TRAJECTORY 
DETERMINATION BRANCH. 
OISCLAIMER~AL THOUGH THIS 
PROGRAM HAS BEEN TESTED, 
NO WARRANTY, EXPRESSED OR 
IMPLIED, IS MADE BY NASA 
AS TO THE 

ACCURACY AND FUNCTIONING 
OF THE PROGRAM AND 
RELATED PROGRAM 
MATERIAL, NOR SHALL THE 
FACY OF DISTRIBUTION 
‘CONSTITUTE ANY SUCH 
WARRANTY, AND NO 
RESPONSIBILITY IS ASSUMED 
BY NASA. 

OC FROM PROGRAM SYSTEM"S 
BRANCH NOV 1967 





SWITCH TAPE 
ASSIGNMENTS 


n4201 


SUBROUTINE 
INPUT 90099 
RESULT 90040 





"00305 = 03849 


01941 


SUBROUTINE 
} INPUT 99905 
RESULT 90000 








“6294 


n2476 


SUBROUT TNE 
INPUT OOO0G 
} RESULT OoooG 





{ WERE “THERE TI ; 
MANY RE Q. CARD 
re : a 


eh 








COMPARE 919% 
TO O9945 





0579 2a 
a BEGIN NO§970 | 
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PAGE 14 


SET NO. OF T 
(P,Q) “§ = 0 


f 
01197 = do010 





00376 





_ STORE INPUT 






CPTION — | WRITE PRINTER 
>. ' LOAD INTERVAL | _ BCD MODE 
- Gonses = 90044 CORE DUMP abs! goo0n 00014 


SUBROUT INE 
I NPUT 99906 


90010 


THE EMPTY BOX INDICATES 
A COMPUTED TRANSFER 





IS MCOL ORBIT a POINT 
—i— — 1 GENERATOR BEING 

.- CHANGE INITIAL 4 USED 

| CONSTANTS | OS ee. I 
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SUBROUT INE 
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RESULT 90000 


COMPARE. OO99 
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DATA CAR 
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SUBROUTINE 
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INPUT 9099 


(O-C) ANGLE 
RED.F.= PI/2 


RESULT S099 
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COMPARE 0006 
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SUBROUT INE 
INPUT 99010 
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f 
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00069 = 
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| ELEM. ,DRAGS,EARTH 


CONSTANTS 
Dee ee | cee 
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SUBROUTINE | 
+ | _INeuT coosc 
1 | RESULT 95060 
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q 4 
GEN. ° a 
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SUBROUTINE 
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COMPARE S1ai1 
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«BEGIN g0n62 ne 
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89000 a 300 


Ore 






/ WRITE PRINTER 
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OOO79 e050 
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90000 90011 


WRITE TAPE D 
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90081200050 
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COMPARE 91803 — 
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28 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PACE «6? 


INPUT WAS ON CAFDS 





e BEGIN 00571 ] 


“USE SIGMA FROM 
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15 “SET TO ZERO THE i 
— SUM OF WEIGHTED 
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SET FREVIOUS 
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I 
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94384 
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13 
BEGIN 01831 e 
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0 compure PARTIALS | 
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P DOT = -2(2 
PIZN) (N 2) 
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5 
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f 
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SUBROUTINE 


INPUT 91115 
RESULT 99619 
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SMALL OMEGA DOT | 
(DEG/DAY) 


f 
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PRINT INITIAL ELEM. :DRAGS, EARTH CON 
LOAD AREA, MASS DRAG DATA CARD FOR 
COMPUTE. CONSTANTS FUNCTION 

COMPUTE AND PRINT R.M.S. FOR EACH 08 
COMPUTE EFFECTIVE DRAG 

ADO TO SUM OF (0-C) S@. AND TO N COR 
COMPUTE. CONSTRAINT EGNS. (ADDIT.E@C) 
(0-C) ANGLE REDUCTION F. 

INITIALIZE INTERPOLATION 
COMPUTE. AND STORE CORR. ELEM. 

LOAD AND STORE PRINT REQUEST CARDS 


SUM UNKNOWNS 

O-C PRINT FUNCTION 
ABSOLUTE. VALUE 
RANGE RATE FUNCTION 

LOAD CONSTRAINT WEIGHTS 
DELTA TAPE READ AND INTER. 
INPUT CONVERTER 


OUTPUT SCALE 


LOAD DRAG DATA 

RUN IDENT. LOAD + PRINT 
SATELLITE IDENTIFICATION 
DAY COUNT 

OBSERVED DATE TO J.D. 
ORBIT GENERATOR INITIALIZE 
ELEMENT LOAD 

MATRIX CLEAR 


OBSERVATION LOAD 


SPO 
ORBIT GENERATOR 
LOCAL STATION PREDICTION 


POSITION IN ELLIPSE 


81 


PAGE . 


aa 


09008702401 
9008801601 
29908902316 
29009002361 
a90091091701 
29009303501 
Q2009403521 
@90096021 96 
99009702101 
a9c09sn2156 
99009904334 
voo032+00000000+00 
v0046 1 +16000000+02 
v00615+10000000+01 
v00459-10000000+01 
v00460+10000000+02 
vO0465 +10000000+02 
v00466 +10000000+01 
von475+00000000+00 


V00498+10000000+03° 


vO04 95 +28000000+02 
v02098+10000000+01 


vO00de +30000000+04 . 


V00003 +50000000+01 
voooo7 +s0000000+02 
VO0009 +1 0000000+02 
v00016+00000000+00 
VO001 1+10000000+02 
v00012+19000000+02 
v00013+18000000+02 
v0001 5 +50000000+01 
v90016 +19000005+02 
vooo17 +10000000-02 
vo001 8+10000000+06 
vo0058+20000000+01 


PAGE 1A CONTINUED 


POSITION PARTIALS 

OBSERVATION PARTIALS 

AUGMENT MATRIX 

SOLVE EQUATIONS 

CONVERT CORRECTIONS 

LOAD REJECT CARDS 

SEARCH AND REJECT FUNCTION 

SQUARE. ROOT 

SIN 

ARC SIN 

LOAD INTERVAL CORE DUMP CARDS 
NORMAL SETTING ,»FOR NO JUMP AT END OF 
NO. WORDS IN PERT. TAPE TITLE RECORD 
K, MULTIPLIER FOR DRAG DELTA M 
NO.STORED IN LOC.O0000 IF TAPE CHECK 
NO. OF TIMES TO TRY TO READ TAPE REC 
MAXIMUM NO. OF INTERVAL CORE DUMPS 
SETTING FOR INTERVAL CORE DUMPS ON T 
NORMAL SETTING FOR (0-C)"S PRINTED 


MAX.NO. PRINT REQ. CARDS CINCL. HEADI 
SET FOR RANGE RATE (O-C),S NOT DIFF. 


ZERO 
NO. OF ELEMENTS 


MAX. NO. OF VARIABLES 
NO. OF WORDS/ELEMENT NAME 
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voo57 1 +99000000+01 

woooss = 

vo0179+099009009+99 

-y0G149-200009000+01 

vo0419+10009005+51 

yvo2ne0+40000006+01 

voeoo1 +609000000+01 

vSeri92 +85000005+01 

voon72+4a8a000095+02 WORDS/RECORD ON TG OUTPUT TAPE 
vo0394 +00000000+06 NORMAL SETTING FOR NO CORRECTED 
v00398+2n000000+01 X, WHERE K 14 = (RHO 1) 7 X 
vO1800-19090000+01 

voodes+ 90000000 +00 SET FOR SINGLE PRECISION 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 90100 


PRINT REQUESTED 
QUANTITIES __ 
PRINT REQUESTED 
QUANTITIES 


WRITE PRINTER 


WRITE PRINTER 


: «16 ANY PRINT 
REQUESTED 








_ 


~\ "10 50008 


PAGE 17 


fo] 









13 
8 BEGIN 90034 e 


The WRITE TAPE D 


(NO. OF LINES 
PRINTED) +1 






5 
oonG9 = 
n90g9+00007 





18 


CT uAVE ALL REO. 
q ee ‘BEEN t 
PRINTE! 





19 


COMPARE 90008 


84 


PAGE 17 CONTINUED 





20 
BEGIN 99935 @ 





— g0013 = 
90013 /00027 
| 24 
SCALE CHANGE in | 





92521 — 


SUBROUT INE 
INPUT S912 
RESULT 90015 


















90015 = 
90015 790027 









CD MODE 
oooe0 oo006 







WRITE PRINTER 
BCD MODE 
99099 onoo6 
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K VALUE = 00100 





GET 4 woRDS 
DESCRIBING 
<a 
90013 = (90001 + 
co000g)) 





QUANTITIES 

f 
00014 = (90002 + 
o0009)) 





90015 = (90003 + 
00009) ) 








00016 = (90004 + 
| (00009) ) 





LOC. OF @ suB 1 





(QNG09) } 





@ sub 1 


Sf ! 
00019 = (90000 + 


(99019)) 



















5 . 
90019 = (90005 + - 








j 
0023 = (90000 + 
(HHI23) ) 





2521 


SUBROUTINE 
INPUT 90923 
RESULT O21 










a oh! -(Q SUB 
) 





S 
0019 = 
Aoo23-ONG19 






ti2521 









SUBROUTINE 
INPUT 90019 
HiKi4 9 
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PAGE 


50130 25 


Z BEGIN 00030 8 
a ek teas 







| io 26 
ass 3 
f 
mng24 = (90000 + 

(0924) ) 















27 
o2524 
SUBROUTINE 


{ INPUT 99024 
1 | RESULT 95925 










(2 SUB 3)-(@ SUB 
“"2) 






S 
9023 = 
nog924-NoN23 





18 


nasal = 


SUBROUTINE 
INPUT 00019 
RESULT 90017 


rr Loc=0 a Ee NOL 
j scale arco ce I | 


L_ 28 Ba | _ 





12 








WRITE TAPE D 
BCD MODE 
p0d13 90006 


13 


COMPARE 90010 
To 90005 


00129 


90110 





: 


Tr LOC=5(1.£.NO a 
) 3 REQ.) PRINT 


ai ,a2,+ DI 
ic. 


> 


22 






COMPARE S024 
TO 90005 


EQUAL 


23 








WRITE TAPE D 
BCD MODE 
50513 SOo06 


24 


COMPARE 90010 
TO 90055 


90131 


90119 
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PAGE 18 CONTINUED 











SUBROUTINE 
INPUT 99923 
RESULT 00023 








90923 = 
002300027 — 


WRITE TAPE D 
BCD MODE 
00613 90006 


32 
: | is OUTPUT ON 
PRINTER: 







COMPARE 900419 
TO OO0G5 


35 
BEGIN g0012 ] 
—",, a — | 





WRITE PRINTER 
BCD MODE 
90013 SoDd6 


LJ 


90110 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


VALUE 3 00100 





00110 


18.24 


——y 
BEGIN DOO3i 8 
—_a_) 





WRITE PRINTER 
BCD MODE 


00119 
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PAGE 19 


K VALUE = 00100 


@9000103100 
a900n203101 
29000303102 
99000403103 
29900503104 
@9000603105 
99000703106 
agoonscng6s 
asnonedese1 

a9nn1000042 
99091100178 

a9001 200065 

@9901390179 


voooos +90000090+500 
_Vo00n6 +10009900+91 
¥90007 +7a0000004+01 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OVI 


2 ST LOC. OF DATA STORAGE 
2 ND STG. LOC. 

3 RD STG. LOC. 

4 TH STG. LOC. 

5 TH STG. LOC.. 

6 TH STG. LOC. 

7 TH STG. LOC. 

NO. OF LINES TO PRINT 
QUTPUT SCALE 

PRINTER OUTPUT OPTION 
SIGMA 

CHANGE IN SIGMA 
ITERATION NO. 


ee OOS REFERENCE, LISTING 


PAGE BOK Lage 
47.01 5201 
47.10 00132 

47.43 80134 
9745 00110 
“49.20 90133 
416.01 O0111, 
18.14 00128 
18.25 00130 
18.35 O0112 
19.01 00129 
19.03 90131 


47.12 
a¥.i2 
17,09 
17,19 
18.11 


18.22 


18.13 
18.24 


48.13 18.24 «=: 16.34 ~ 


15.43% 


17.08 


16%. 
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19.02 - 


19.04 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 20 
K VALUE = 90159 


os PRINT FUNCTION FOR 
D.C. 








12.15- 


$ BEGIN 90001 ) 





00011 = 





90301 — 


4 


| oon12 = 92825 


ong13 = 92826 








90014 = 
00027292827 









+90000000 +02 


OBS. TYPE (yY) /19 
[ 






00016 =_ 
0253/9002 





90016 = INTEGRAL 
PART OF S0016 





10 


90 


17 









(9x9Y0O) + ¢ 
EQUAT.OR POLAR 
IDENT i) 


00015 = 
9001 7+90005 









02521 
SUBROUTINE 
INPUT 90255 

RESULT 90016 











SUBROUTINE 
INPUT 99256 
RESULT 90018 









90018 = 
90918 00006 


PAGE 20 CONTINUED 







%+90=9Xx=ALPH.REP. 02521 












J . . 
90917 = SUBROUTINE 
90016+500138 INPUT 90254 


RESULT 99920 









90020 _ = 
__ 99020 700006 









27 
12 — i. — 
: | “WEIGHT) (19 TO 3) 


f 
mon2e = 





2 § 


















J . 
n0016 = t. 90258309027 
90253-00016 ohchbabtat 
2a 
+90=9Y=ALPH REP . ae , 
MHI = 





90016+00018 


n25?e1 

SUBROUTINE 
INPUT 959257 

RESULT gades 





















| 00023 = 
OO23 /GOOK6 


15 
9x9Y 











f 


MKT = 





0001 7499016 
OBS. NO. 


Sf 
16 | Hog25 = 99245 






9x9Y00 


f 
OOOLT =. 
OO 790003 








WRITE TAPE D 
BCD MODE 
90015 90055 
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K VALUE = 99150 





HIGH 
COMPARE 90001 
TO 00007 


92 


CROSS--REFEREMCE LISTING 


PAGE BOX LABEL REFERENCES. 
20.01 00151 12.15% 
21 .03 00158 21.02 


K VALUE = 90159 


agnon1g0942 

asnon2oonn9 TEN 

agnon300498 100 

a90n5$90497 EQUATORIAL OR POLAR IDENT. 
agno4as00045 | 
9909396000300 STATION LABEL 
29939190391 

292825092825 YR MO DY 
@9282602826 HR MI 

@9262702827 SE. SEC 
9025300253 OBS TYPE 
@on25500255 OBSERVED QUANTITY 
@9025690256 COMPUTED QUANTITY 
aon25400254 O-C (UNWEIGHTED) 
a90257009257 O-C (WEIGHTED) 
99025809258 OBSERVATION WEIGHT 
aon24500245 OBS. NO. 
Q9252102521 OUTPUT SCALE 
vo0005 +10000000+01 

-VOO0N6 +10000000+06 

voogo7 +09000000+00 


voOd27 +1. 9000000+54 19 To 3 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
K VALUE = 91200 


LSP (LOCAL STATION 
PREDICTIONS) 
LSP 





SUBROUTINE 
INPUT 9095 
RESULT 90085 


N2041 


SUBROUT INE 
INPUT 00096 
RESULT 00047 








eve 


SUBROUT INE 
INPUT 90047 
RESULT 90050 











M0494 





92001 







SUBROUTINE 
INPUT 00097 ~ 
RESULT 99085 










Sona ee 






SUBROUT INE 
INPUT 90998 
RESULT 95053 












041219 







94 





COMPARE 90070 — 
To 90100 


19 


_ -  — 
8 YES. USE Gi BAR 1 
ee ; nes 3 


GaGa 





SUBROUTINE 
INPUT 99074 
RESULT 99035 





21 








PAGE 22 


OBS. = THETA 2 










hia | 25 
5 et ae an 
‘ BEGIN 90057 ® 
| | 24 
e USE G2 BAR 8 


28 





SUBROUTINE 
INPUT SO0T2 
RESULT Of035 






PAGE 22 CONTINUED 


rt — 
a AND G3 BAR a 
—, — | 





02001 


RESULT 00041 





01227 


02001 


SUBROUTINE 
INPUT [90050 
RESULT 90085 





11 






O2ci76 


SUBROUTINE 
INPUT 90060 
RESULT 99032 
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NASA-GSFC MISSION ANDO TRAJECTORY ANALYSIS DIV! oAce 


K VALUE = 01200 


AZIMUTH 


22 
oy Sd —a;, 
BEGIN 00014 ® 

a! 


ry 





RESULT 00041 





SUBROUT INE 
INPUT 50099 
RESULT 90099 


ao9001 


SUBROUT INE 
INPUT 90099 
RESULT DON99 


01227 





f RESOLVE ANY 
} AMBIGUITY IN § 


OBSERVED RANGE 
Lw- eran ——- — 





96 


PAGE 23 CONTINUED 


4 


ELEVATION 





97 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 91200 





= a 
#@ RIGHT ASCENSION 8 






n2en01. 


SUBROUT INE 
INPUT 99076 
RESULT 90035 






















02001 


SUBROUT INE 
INPUT 90075 
RESULT 90041 





01227 


LOCAL HOUR ANGLE 





6 BEGIN 90018 a 


 oe001- 


SUBROUT INE. 
INPUT 9O00e82 








pearine 
INPUT 00071 
RESULT 90035 





01227 
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PAGE 24 


L-RATE 










SUBROUT INE 
INPUT 90050 
RESULT 00085 





at 
02051 
SUBROUTINE 


INPUT G0078 
RESULT 90065 

















02001 


SUBROUTINE 
| INPUT 90056 
RESULT 900a5 












23 
gens. 





SUBROUTINE 
INPUT SOO74 
RESULT 90066 






| 24 
0099 = 
- 00065+n0066 


25 





SUBROUTINE 
InPut ooaTT 


RESULT 00035 








99 











RANGE RATE 
noog9 = so0en 






‘o2de1 


SUBROUT INE 
TNPUT 009095 
RESULT 90002 










SUBROUTINE. 
+ | RESULT 95099 


18 


PAGE 24.CON TINUED 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 25 
K VALUE = 61200 










02001 


SUBROUTINE 
INPUT 00076 
RESULT 00041 







02001 


SUBROUT INE 
INPUT 90071 
| RESULT 90041 










02001 . 
SUBROUTINE 


INPUT 000383 
RESULT 90044 





92004 
SUBROUT INE 
INPUT 90c738 

RESULT 90044 
















90065+00066 





100 


RESULT 90035 





f BY MAKING THE l 
j FOLLOWING 
PUNCHES, IN ROW i 


a. a | 


16 
02004 
SUBROUTINE 


_ INPUT 90080 
RESULT 90038 





01236 


101 





01230 


PAGE 25 CONTINUED 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIvI 


K VALUE = 91200 









SUBROUT INE. 
INPUT 00074 
RESULT 00035 






02001 


SUBROUTINE 
INPUT GO0a1 
RESULT 90038 













C2004 


SUBROUTINE 
INPUT 90084 
RESULT 90085 





aa — 
SUBROUTINE 


INPUT 09071 
RESULT 90041 






92041 










SUBROUTINE. 
INPUT 90978 
RESULT 90044 






91229 









92054 
SUBROUTINE 


INPUT 90035 
RESULT 90062 












92054, 


SUBROUTINE 
INPUT 90041 
| RESULT 90063 














41 
02246 
SUBROUT INE 


INPUT 00062 . 
RESULT 90099 






12 
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PAGE 26 











| SUBROUTINE 
INPUT 00038 
RESULT 00065 






21 
02001 
SUBROUTINE 


| INPUT 00056 
RESULT 90085 














22 





2051 










SUBROUTINE 
INPUT 90035 
RESULT 90066 





23 





90067 = 
00065 +00066 





24 





‘o20n1 











SUBROUTINE 
CINPUT 90050 _ 
} RESULT So9a5 









13 


co : — ny 
e BEGIN G9O028 a 





o2o01 


SUBROUT INE 
INPUT 99955 
RESULT 99085 



















n2054 


SUBROUTINE 
INPUT 90035 
RESULT 00064 | 












N2156 


SUBROUTINE 
_ INPUT 90064 
RESULT 90099 






17 


103 


PAGE 26 CONTINUED 






o2051 





SUBROUTINE 
INPUT 00044 
RESULT 9006S 


a 
1 


n2no1 . 
SUBROUTINE 
INPUT 90056 
| RESULT 00085 









2? 
2051 









SUBROUT INE. 
INPUT 00041 
} RESULT C0066 








29 


oend1 | 





SUBROUTINE 
INPUT 00050 
| RESULT 90085 











92051 


SUBROUT I NE 
INPUT 99035 
RESULT none2 










| 31 
92051 










SUBROUT INE 
INPUT 0041 
RESULT 90063 








NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIvI 


K VALUE = 91200 


oo0es = 
o0n62400062 











nn099 = 
90065 700066 





19 


104 


15. 








PAGE 


13 






00065+50066 





ta 
0205. 








NO T 





SUBROUTINE 
INPUT 00035 
| RESULT 00062 


> Che 





er 


NASA-GSFC MISSION AND TRAJEC 


TORY ANALYSIS olvi 


K VALUE = 91200 


29005700493 WORKING STG. (BEGIN COMMAND) 
agons800494 WORKING STG. (BEGIN COMMAND) 
@0004700358 RHO BAR 

0005000361 (RHO BAR) & 

20005300365 RHO DOT BAR 

Q0005600368 {RHO DOT BAR) x 

0006900371 RHO DOT 

anno7000253 OBSERVATION TYPE 

an0n7 100316 G 1 BAR 

90007290319 G 2 BAR 

anon7 300322 .G 3 BAR 

a0nn7400325 G 4 BAR 

@00075099328 G 5 BAR 

0007690331 G 6 BAR 

a9007700334 G 7 BAR 

@9097800337 G 1 DOT BAR 

@o007 900340 © 2 DOT BAR 

annns0n3e3 G 3 DOT BAR 

an008100346 G 4 DOT BAR 

a0008200349 G 5 DOT BAR 

0008399352 G 6 DOT BAR 

0008400355 G 7 POT BAR 

@0008552085 VQ 

an009602001 VECTOR MOVE 

aoods702051 DOT PRODUCT 

@000asn2n11 VECTOR MAGNITUDE 

aonnssn2n4 1 VECTOR SUBTRACT 

aoocsan2d21 VECTOR DIRECTION 

enone192076 SCALAR-VECTOR MULTIPLY 
anons2n2246 ARC TAN (Y/X) 

9009302156 ARC SIN 

90009402196 SQUARE ROOT 

ananeson2na R BAR, SATELLITE POSITION VECTOR 
@n009600310 CAP R BAR, STATION POSITION VECTOR 
anone7n0enr R OOT BAR, SATELLITE VELOCITY VECTOR 
29009800313 CAP R DOT BAR,STATION VELOCITY VECTO 
anongend256 COMPUTED OBSERVATION 
29000109002 IONOSPHERE GORR. FUNCTION 
a9n002NnN3 75 (R BAR) x 

a9n0s3099191 RANGE AMBIGUITY RESOLUTION F. 
v00100+1 7000000+02 

voonds +90000000+90 

vooons6 +19000000+01 


105 


CROSS-REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 
22 01 01201 12.12% 11.20% 4176.20% 179.05% 179.18* 
22.23 10493 22.18 
22.26 00494 22.18 
23.01 01211 
23.10 01212 
23.16 01213 
235.22 01214 
23.26 01215 
24.01 01216 
24 .05 Oizi¢r 
24.0f 01218 
24.12 01219 
24.19 01220 
25..01 01221 
25.08 DHiz222 
25.13 01223 
25.1¢ 01224 
25.22 01225 
26.01 01226 
26.07 0122¢ 22.22 23,25 24.04 24.11 
26.13 01228 22.25 23,2¢ 24.06 
26.18 1229 25.12 25.21 26.96 
27 .08 01230 25.16 25.24 
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K VALUE = 91309 


PE (POSITION IN ELLIPSE) 
POSITION IN ELLIPSE 












JS 
00035 = 99016 


02196 
SUBROUTINE 
INPUT 00033 

RESULT 00015 










O9015 = 
0015x6033 











00023 = 
003400034 









2061 
SUBROUTINE 
INPUT 59025 

RESULT 90585 















92101 


SUBROUTINE 
INPUT 90035 
RESULT 90015 












nen76 


SUBROUT INE 
INPUT 90615 
| RESULT 99522 | 








rege 
$ cos I 8 


n2105 


SUBROUTINE 
INPUT 09035 
RESULT GH015 



















23 
—gonea4 = 
g1G24+95015 





M2ci4 










SUBROUTINE. 
CINPUT 9025 
RESULT 95625 
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PAGE 28 






33 





 g20d1 


SUBROUT INE 
INPUT 90025 
RESULT 90085 






34 

a GAMMA BAR 4 
35 

n2n61 | 





SUBROUT INE 
7 INPUT 99922 
RESULT 90028 






36 
o0015 = 
90515~90n12 
37 


n2105 





SUBROUTINE 
INPUT 90015 
RESULT 99516 





38 
2194 













SUBROUT INE 
| INPuT 99915 
RESULT 99015 











39 
neo 
SUBROUTINE 


INPUT 99528 
RESULT 959985 






4o 


COS Wi GAMMA BAR 4 





SUBROUTINE. 
INPUT 90017 
RESULT 90025 





14 


8 OMEGA BAR 8 





15 
nein 
‘SUBROUTINE 


INPUT 90017 
RESULT 90026 
























90927 = 90050 








SUBROUT INE 
INPUT 99049 
RESULT 990985 






> ie ; 








02061 





SUBROUTINE 
INPUT 95022 
RESULT 99685 


92101 


SUBROUTINE 
INPUT 99512 
RESULT 99015 










| 27 
92076 
SUBROUTINE. 


INPUT 99915 
RESULT 999020 






nen 
SUBROUTINE 


1 INPUT 99025 
RESULT 909385 











2105 


SUBROUTINE. 
INPUT 99012 
| RESULT 90015 






n2076 
SUBROUTINE 
} INPUT 90015 
RESULT 90035 









| pe ff 
BETA BAR “4 


ry 


n2034 


SUBROUT INE. 
INPUT SG620 
RESULT 99025 
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-PAGE CONTINUED 





41 







02076 
SUBROUTINE 
INPUT 90016 
RESULT o001i7 








a2001 
SUBROUTINE 
INPUT 90025 
RESULT 90085 











SUBROUTINE 
INPUT 99916 
RESULT 99085 






NASA~GSFC MISSION AND TRAJECTORY ANALYSIS DivI 


K VALUE = 01300 


nen41 


SUBROUT INE 
INPUT 90025 
RESULT 9034 


2271 


SUBROUT INE 
INPUT 90013 
RESULT 99015 







2216 





SUBROUT INE. 
INPUT 99015 
RESULT 99940 






] Cos E(T) q 








17 






90015 = 
00015400011 





18 
sa) | 
5 







90058 = — 
00050-00015 


cn | 
f 


oe 


90013400012 





90015 = 
qO023x00014 


| 21 
n2oo1. 










SUBROUTINE 
INPUT 9034 
RESULT 9035 





22 
o2076e 
SUGROUT INE 


INPUT 90015 
RESULT 99020 





23 


9og15 = 
90012-G0034 


24 
gqg16 = 
0903300015 
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o2076 










SUBROUTINE 
INPUT 99015 
RESULT 90085 






o2041 











SUBROUT INE 
INPUT S920 
RESULT 90085 








i 


02076 





SUBROUT I NE 
INPUT 99036 
RESULT 95044 






. 45 
¢ RMAGNITUDE 4 








n2105 










SUBROUTINE. 
INPUT 99940 
RESULT 90012 














49 
= aaa 
NO 2x0 34 









(1-E Cos ECT) 


014 = 
n0051 90015 






e104 










SUBROUT INE 
INPUT 90040 
RESULT OO11 















14 
Sauls = 
134400034 









15 


90013 = _ 
90051-00013 









16 
02196 
SUBROUTINE 


INPUT 99013 
RESULT 90015 







— 92001 


SUBROUT INE 
INPUT 99931 
RESULT 99585 


o2076 


SUBROUT INE 
INPUT SO915 
RESULT 96985 





02031 
SUBROUT INE 
INPUT 90620 

RESULT 9037 f 



















No015 = 
90633200011 







— 9n015 = 
9061500514 









31 
G2004 





SUBROUTINE 
INPUT 99031 
RESULT 90085 












52076 





SUBROUT I NE 
INPUT 90015 
| RESULT 99920 
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PAGE 29 CONTINUED 






92011 


SUBROUTINE 
INPUT 90037: 
RESULT ga010 














SUBROUT INE 
| INPUT 90941 
RESULT 90011 





44 


K VALUE = 91350 


9000001106 T(5), EPOCH TIME IN C.U.T. 
9006190218 SEMI MAJOR AXIS AT T, TIME OF OBS. 
agnog2ne219 ECCENTRICITY AT T 
a9000301113 MEAN ANOMALY AT T(O) 
9000401115 ARG. OF PERIGEE AT T(0) 
9900n0sa1117 LONG. OF ASC. NODE AT T(0) 
49000603864 J 

a9no00703852 MU 

agngdano201 S(T} 

agnoneno2c2 c(T) 

gon01009215 R (MAGNITUDE OF R BAR? 
99991199211 V (MAGNITUDE OF v BAR) 
390901291112 DELTA AT T(9) 

99991390213 MEAN ANOMALY AT T 
a9no1590215 ARG. OF PERIGEE AT T 
asnn160n220 INCLINATION AT T 

a90ot 709217 LONG. OF ASC. NODE AT T 
99091991119 MEAN MOTION AT T(9) 
asnnzenn22e ALPHA BAR 

eonG24nn224 ALPHA SUB K 

agng25nn225 BETA BAR 

aono28qn228 GAMMA BAR 

29003190231 FP BAR 

agno34n0234 @ BAR 

@9003700237 R BAR (POSITION VECTOR) 
aonganan24n E(T) (ECCENTRIC ANOMALY) 
qonn4109241 V BAR (VELOCITY VECTOR) 
aonosoogeno T, TIME OF OBS. IN C.U.T. 
@90da502085 va . 
aonne6g2no4 VECTOR MOVE 

29908702061 CROSS PRODUCT 

200098802011 VECTOR MAGNITUDE 
9058902196 SQUARE ROOT 

3900900227 1 PRINCIPAL VALUE 


111 


qo0ne192101 SIN 


a9009202105 cos 

@9009302216 . KEPLER 
99009402031 VECTOR ADD 
e9nn9s02041 VECTOR SUBTRACT 
agnn9602076 SCALAR MULTIPLY 
veooo7+so000000+01 

vooone+4o000000+01 

v90049+00000000+00 ZERO 
vo00so+00000000+09 ZERO 
yon051+10000000+01 ONE 


CROSS—REF ERENCE LISTING. 


PAGE 50x. LA@EL AEFEREN CE 
20.01 01301 10.308 66.27% 
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PAGE 30 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OIVI 
K VALUE = 91355 


COMPUTE AND STORE 
CORRECTED ELEMENTS 


/ 01336 | 


14.24—— HI 
t COMPARE 00021 


Gre 
® BEGIN 90001 @ 
eee —d 
C ) Yorn 


1377 


6 











SET FOR SPECIAL | 
ENTRY TO EL. LOAD 


f 
90044 = 
+715000000+014 











32 
enter et.. town 


CORRECTED 


LL , 


STORE PREV. & 


5 
(90020 + agate 


STORE PREV. NU 


5 
y900e0 + @0518)) 
= 990G3 





noo14 = GOGoS 


21 





STORE PREVIOUS 
MAG e K b MAG ° Vv 5] 


J 
ONG21 = 
+2 2N06S00+02 









YES. COMPUTE 
CORR. POS. AND 
VEL. eee A 


90021 = 
+609900009+51 







22 
DELTA ,MEAN 





T | ill ike as t 
I ccorR.) ELEMENTS { 


113 





as) 





s 
TOOLS = (90019 + 
(99001 4)) 





10 
DELTA COMPONENT | 
(FROM CC) 

f 
00016 = (90027 + 
(9001.4) ) 










70016 = 
90016400015 


STORE PREV. 
COMPONENT 


5 
cme? + (90014)) 
= (O15 





STORE CORR. 
COMPONENT 


J 
(99019 + (90014)) 
= poo1 5 











14 





15 


FARE PREV.AND 





HI! 





PER. INCLINATION, 
LONG. OF NODE, 


J 
On015 = (90050 + 
(90014) ) 










25 
ELEV.V,N,AND ECC. 
ANOMALY 


ae JS 
ygog2a + @o014)) 
= 00015 










o0014 =— 
| so14400006 





er 





COMPARE 00024 
TO 6014 


mc  |LO/E@ 


01377 





28 


STORE PREV. 
PERIOD 


J 
(90025 = 90012 






29 


STORE PREV. HT. 
OF PERIGEE 


f 
905021 = 90013 
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PAGE 30 CONTINUED 


3 ‘ 

~PREV.RHO SUB I 

ono1s = e006 ae 
0014)) 












} 39 
DELTA RHO sua T 
(FROM CC) 


| s | 
19016 = (90023 + 
(0001 4)) 






40 


PREV.+DELTAS 
CORR. 


nOOL16 = 


90015+00016 


STORE PREV.RHO 
SUB I 


S 
(WMHi23 + (jwi14)) 
= (015 


STORE CORR .RHO 
suB IT 


(900146 





43 


qos14 = 
179091 4400506 


HI 


NASA~GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 01355 





( ) rors 


01377 








STORE PREV. (1+ 
RHO 1) (C SUB OD 


$ 
90052 = 90051 





1 


J 
9051 = 
00006+90016 









CORR. (1+ RHO 1) 
(C SUBD) 


J 
90051 = 
90051 #90055 









91374 


MCOI NOT BEING USED, SO 


COMPUTE CORR.ELEM. 





DELTA A (FROM CC) 
90016 = 90020 





STORE Abate A 
90020 = 90004 


PREV.A + DELTA = 
CORR.A 


S 
SOG = 
90001 +00515 











DELTA E (FROM cc) 


nomi6 = (90020 +— 
(GIGS) ) 












| STORE PREV .£ 


S 
(90020 + (O06) ) 
= 990902 






11 


PREV.E + DELTA = 
CORR.E 
f 


-gonne = 
999N2+09016 






12 
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PAGE 31 


INCLINATION, 


s 
o0016 = (90058 + 
(00014) ) 





21 





ELEV.V,N,AND 
ECC.ANOMALY , 


J 
90016 = 
00016+00015 






22 






WHERE 
CORR.ELEM.= 
PREV.ELEM. 


oe | | 
(90058 + (j0n14)) | 
5 : 


= 064 









| | 23 
+ DELTA ELEM.FROM | 
cc 


JS 
qqnggn4 + (90914)) 
= 00916 






24 





ALSO STORE 
PREV.ELEM. 
f+ 
0014 = 
6001 4+909006 






COMPARE 00021 
TO 90014 





1 Caste 


PAGE 31 CONTINUED. 


“STORE PREV. NU 
(90020 + j0018)) 
ic ar 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OIvI 
MISCELLANEOUS STATEMENTS 
K VALUE = 01355 


PAGE 4 A 


a9000001100 1ST OF 100 LOCS.FROM WHICH BIN. RECO 
#9000101 101 A (PREVIOUS ELEMENTS, WHICH 
qononeni 102 € REPLACED BY CORRECTED ELE 
@9000301103 NU THE FUNCTION) 

9000401112 ANGLE DELTA 

@9000501113 | 

q900neo1114 ANGLE PHI 

9000701115 ARG. OF PERIGEE 

@9000801 116 I 

Q9000901 117 LONG. OF NOOE 

9001001119 N 

9001101120 ECC. ANOMALY 

Q9001201123 PERIOD 

a9001301124 HT. OF PERIGEE 

9001401125 HT. OF APOGEE 

ag001601159 N(2,@) OR RHO SUB I 

9001701170 N3,@ 

99001801196 SIGMA 

@9001901 104 FIRST LOC. OF POS. + VEL. VECTORS 
a9002000590 DELTA A (REPL.BY PREV.A IN F.) 
9002190523 PREV. HT. OF PERIGEE 

qeonzenns24 PREV. HT. OF APOGEE 

99002300525 DELTA N(2,@) OR DELTA RHO SuB I 
9002400545 DELTA N3,Q (REPLACED BY PREV.N3,Q@ IN 
a90n2500522 PREVIOUS PERIOD 
a90027 00503 DELTA R BAR,V BAR (REPL.BY PREV.VECT 
qenn2snn5o9 FIRST OF 11 LOC. OF PREV. ELEM. 
@9003003851 Cc 

a9003103852 ww 

a9003200599 M (NO. OF UNKNOWNS) 

9003300048 N 

asnn3s400049 SUM OF (O-C) SQ. 

a9on3500178 SIGMA 

a9nos6n0n65 CHANGE. IN SIGMA 

a9no3700082 ABS. VALUE OF DELTA SIGMA 
agnn3anccn19 (DELTA SIGMA) /SIGMA 

aonnann2196 SQ.RT. 
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90041092271 
49904202751 
29004302936 
a90044090099 
9005001115 
Q9005199567 
@9005 290566 
@9005390267 
a9005402011 
9005561107 
a9n05691111 
9005790519 
Q9005800511 
@9006904491 
907004591 
a9nog7 1.90200 
gon1 oonNosS 
aonngsnsa42 
V90095 +90000006 +00 
VOO0N6 + 15000006404 
voooda7 +20000000+02 


voooos -1onon0o0d+o1 


K VALUE = 01355 


ANGLE RED. 
ABSOLUTE VALUE 

ELEMENT LOAD (CONVERSION OF ELEM.) 
IND. OF NORMAL OR SPECIAL ENTRY TO E 


CORR. VALUE OF (1+ RHO 1) (C SUB 0) 
PREV. VALUE OF (1+ RHO 1) (C SUB 0) 
Cc SUB D 

VECTOR MAGNITUDE F. 

PREV.VEL.VECTOR (REPL.BY CORR. IN F. 
PREV.MAG. VEL. (REPL.BY CORR. IN F.) 


DELTA MAG.VEL. (REPL.BY PREV. IN F.) 


48ST LOC.OF 9 DELTAS (REPL.BY PREV.EL 
ORBIT GENERATOR INITIALIZE 


ORBIT GENERATOR 


ORBIT GENERATOR IDENT. 
2p! 


PAGE 4A CONTINUED 


vO001 2+190000900+03 
vooo1s+20000090+01 
CROSS=REFERENCE LISTING 
PAGE BOX LABEL REFERENCES. 
30.01 01356 14.24% 
31.05 01365 . 30.95 
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NASA-~GSFC MISSION AND TRAJECTORY ANALYSIS DIVI. 
K VALUE = 91380 PASE Se 


ANGLE REDUCER FOR 
ABS.VALUE OF (0-C) 


2 
IS oBS. T Es 6 51389 : 
(RT. ASC. ag ee SOLER yg OTE ; 
a ee ry BEGIN 90009 ] 
Ree ee ee ee 
3 6 
: 1S CBS. TYPE = 8 
«L. « Asd 
per HIGH L— 
COMPARE 90003 
TO gO00N6 
EQUAL. 





COMPARE 90053 
To 90008 







pl ge ae 


. BEGIN 001 4 = 


:” 


O's OBS. TYPE = 


A 
{ery 


COMPARE 90003 
TO HO015 





HO012 = 
Hooo5-90004 





27 


eo — 
© «6 BEGINDDNIO og 
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PAGE 32 CONTINUED 








| 11 
- 18 0 EQUAL TO OR © 


MORE THAN (2 PI - § 
1) 






THETA 1 £5 MORE THAN PI 


24 


(THETA 1) - (2 
1) 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 35 
K VALUE = 91380 





ves. is c caus! 
{ TO OR MORE THAN | 


PI - 7 






rene, | 
COMPARE SOD12 
TO 90062 






SET C=C - 
2 PI 

S 
gone = 
gnon2-00005 


YES. 
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CROSS=REFERENCE LISTING 
‘PAGE BOX TABLE REFERENCES. 


® VALUE = 01380 


32.01 01381 11.25% 
32.95 01389 32.03 
32.09 013901 32.04 32.30 
32.47 01394 32.07 
32.24 01398 32.24 
32.27 01390 32.03 
33.01 01393 32.12 32.14 


K VALUE = 91389 


agnnsio0ess © (OBS. QUANTITY IN RAD.) 
aononenn25s6 C (COMPUTED QUANTITY IN RAD.) 
qaonnnsan25s3 OBSERVATION TYPE 

Q9050400496 T (TOLERANCE IN RAD.) 

Q0099503342 2 PI 

a9901793839 PI 

vooone +60000000+04 (PURPOSE IS TO REDUCE COMPUTED ANGL 
yooo0n7 +49000000+01 WHEN (O-C) IS LARGE DUE TO DIFF. 
yonoo8+a0g00no0+01 AROUND 2 PI.. ALL INPUT AND OUTPUT f 
yvono15+170n00nn+n2 USES 18 LOCS.) | 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 34 
® VALUE = 91400 


PP (POSITION PARTIALS) 
POSITION PARTIALS 10 
vc ES ad -_ 
9 BEGIN meet 





44 


_ 90055 = 
90055200053 


00055 = . 
09055 700052 





52001 


SUBROUTINE 
INPUT 956081 
RESULT 95085 


n2n76 


SUBROUT INE 
J tS LESS THAN 74 8 |] INevt 90055 
1 | RESULT 909040 





8 BO Gece 

BEGIN ngn7e 7 | SUBROUTINE 
— aed 1 INPUT 99085 

RESULT 90585 








YES 





—9o100 = (90100 + | 


§ 
o007a = (o0020 + | 
(900099) )— 


(90099) ) 








17 






2044 





SUBROUTINE 





? INPUT ONO40 
rao le ey RESULT 90098 
$60 To B (20+ J) iivaahcss et eee 


91500 





01478 


123. 








009057 = | 
900573900084 





21 











00057 = 7 
10956 00057 








23 
nen | 
SUBROUTINE 


INPUT 90081 
RESULT 99985 













| 24 
n2076— 
SUBROUTINE 


INPUT 90054 
RESULT 90049 












| 25 
q2eo01 
SUBROUTINE 


INPUT 99989 
RESULT 99085 
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PAGE 34 CONTINUED 


NASA~-GSFC MISSION ANDO TRAJECTORY ANALYSIS DIVI 
RK VALUE = 91400 


= =~ . . 
6 - 92001 
SUBROUTINE 


INPUT 00043 
RESULT 90085 





ag 
be 
wr 
he 
tt 
A 
“ 
a 





~ 


OOuG2 = 





9007x9096 


o0062 =_ 
o0062 /90084 
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24 


PAGE «35 





PAGE 3% CONTINUED 





90071400055 


N @® 


SUBROUTINE 
INPUT 90080 
RESULT 90085 


[woe 


40 





_ 90060 = 
90052-00057 








On064 = | 
90575 95034 
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NASA~GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


« VALUE = 914565 





i 
¢ BEGIN 00103 9 
2 


02105 | 
SUBROUTINE 


| INPUT 90073 
RESULT GO0SS 









92101 


SUBROUTINE 
INPUT 90073 
RESULT 90056 





| 4 
NOO57 = 
0056200056 |; 
5 






00058 = 
90055400055 






00059 = 
SOOT1 IGS? 








noged = 
90058+00059 








90061 = 
90071 90071 








 gon62 = 
99051-90061 





42 
“2776 












SURGUTINEG 
INFUT "535 
RESULT 99049 







19 
02105, | 
SUBROUT INE. 


INPUT 90074 
RESULT 95066 






90067 = 
90060-90066 








22 






5935 = 
59051 -GG067 





23 
peng1 






SUBROUT INE 
INPUT 95579 
| RESULT 99985 






24 







“92076 





SUBROUTINE 
} INPUT 999035 
RESULT 5043 
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PAGE 36 


34 





90059 = 
NON66 400066 





| 35 
q0037 = 
00059400058 


36 





. OO037 = 
00037+00059 





37 
00038 = 
50055+09066 
3a 
HON38 = 
90071 430038 
| 39 
— H0G38 = 
119938 -HOHI52 
: ag 
nog60 = 
5050354900096 
4t 
noneg = 
HOG66 60538 


42 










SUBROUTINE 
INFUT 90079 
RESULT 99085 






19 


02196 





SUBROUTINE 
| INPUT 990062 
| RESULT 99063 





11 













90064 = 
95060-90071 


12 


pr = 
00064-99071 
13 


non64 = 
14964-9097 





2104 


SUBROUTINE 
INPUT 909074 
RESULT O6065 





0035 = 
90064490065 





16 











35 = 
90035 /00063 





17 







A201 





SUBROUTINE 
INPUT 95078 
} RESULT 90085 









oeno01 


SUBROUTINE 
INPUT 90040 


RESULT 90985 












mm (J. 


H2031 


SUBROUTINE 
INPUT 55543 
RESULT 959085 


27 
Ho06a = 
SOTO x97 
28 
HOo06a = 
[0068 790084 
29 


2076 


SUBROUT INE 
INPUT 10068 
RESULT 990198 





3h 
0035 = 
900955 -OO0I66 
31 
ai5s7 = 
FOG65 hIG065 


GOU5a = 
OO05 5400055 


GOG36 = 
00957+000 538 
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PAGE 36 CONTINUED 


oo61 + 
0093630066 


00039 = 


00061 +00055 


0039 = 


90039+00055 


q0062 = 
0066400066 


0062 = 


O00962*50066 


gog6s = 
90071 «0039 


nog64 = 
90071 «90574 


0964 =. 


90064*«90071 


n2076 


SUBROUTINE 
INPuT 00060 
RESULT 90040 







44 


45 


46 


47 


49 


55 





52 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 91490 











00037 = 
00037 -G0065 








00064 = 
00035+I00166 








00037 = 
00037+00064 









00037 = 
00037+00064 









HOST = 
99037+00051 





2001 





SUBROUTINE. 
INCfPUT 90078 
RESULT 99985 





n2n76 





8 
9 


SUBROUTINE 
INPyT 05737 
RESULT 99985 







bh 1 0 








17 


¢  «BEGINO9O1G4 sg 








18 





SUBROUTINE 
INPUT 99686 
RESULT 90085 

















is 19 
n2064 
SUBROUT INE 


INPUT 90075 
RESULT 90098 














92001 






SUBROUTINE 
INPUT 90081 © 
RESULT 96035 











92064 


SUBROUTINE 
INPUT 909075 
RESULT 95099 
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PAGE 57 










SUBROUT ENE 
INPUT 90080 
RESULT 99585 













} 31 
02061 
SUBROUTINE 


INPUT 90077 
RESULT 90598 















32 
2004 






SUBROUT INE 
INPUT 900a1 
RESULT 959085 












52064 






SUBROUTINE. 
INPUT 90077 
] RESULT 90999 





34 


O @ 


ke Ie 








92034 


SUBROUTINE 
INPUT 5004% 
RESULT 95085 


11 
MyH6s = 
(YHI68 AIHI6S 
12 
CIES = 
(HV0G6S s/OHIa4 
13 
MOH68 = 
TON68 /OO63 
14 
HIN6a = 
NOU G68 x97 2 | 


2076 


SUBROUT INE 
INPUT DO06e8 
RESULT 90099 


16 
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‘PAGE 37 CONTINUED 


D2001 
SUBRDUT INE 


INPUT 996585 
RESULT 94085 


O20i64 


SUBROUTINE 
INPUT 95076 
RESULT 95098 


Vent 


SUBROUT INE 
INFUT 95081 
RESULT 99085 


Meet 


SUBROUTINE 
INPUT 95076 
RESULT SHI99 





NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 014060 








90009 : 


man 





SUBROUTINE. 
INPUT 90009 
RESULT 95000 
















5 
a 20004 | 
4 > 
c SUBROUTINE 
5 INPUT 990938 
4 





RESULT 95085 


20031 












SUBROUTINE 
INPUT 99985 
RESULT O0076 






ne 





SUBROUT I NE 
INPUT 90599 
RESULT 99985 





2031 






SUBROUTINE 
INPUT 99085 
RESULT GUTS 







17 


eens =F : 


SUBROUT INE 
INPUT 99675 
RESULT OOO70 





Fer 


SUBROUTINE 
INFUT 99099 
RESULT 90935 | 





25076 








SUBROUT TNE 
INPUT O58 
RESULT DNB 5 






M2U31 









SUBROUT INE 
{INPUT 99073 
| RESULT 90973 









e2 


1454 










SUBROUTINE 
INPUT SOOSG 
RESULT SOoo5 





23 
0055 = | 
WNIT evi 7t 
24 


On056 = 
YG § 1-55 
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PAGE 38 





32 







o2nd 





SUBROUTINE 
INPUT 99099 
RESULT 90085 














33 
92076 






SUBROUT TNE 
INPUT 99060 
RESULT 90085 














34 
2034 






SUBROUTINE 
INPUT GGO73 
RESULT 99999 














35 


90009 = 
+7UOOG50U5 +041 








15 





11 





00055 = 
ITIL &Q00741 






12 






00056 = 
00051-00055 





| 13 
12105 
SUBROUTINE 


INPUT 90073 
RESULT 90057 








14 


OI5a8 = 
056490057 





15 
92001 
SUBROUT I NE 


INPUT 90098 
RESULT 990185 






; 16 
2076 


SUBROUTINE 
INPUT 50953 


RESULT 95085 


PAGE % CONTINUED 


12196 
SUBROUTINE 
INPUT GOO56 

RESULT 99957 


25 











—-G2101 
SUBROUT INE 
INPUT 99973 — 
RESULT 90058 






27 


90059 = 
| 9005700058 





28 






99060 = 
00050-90059 







29 
o2001 
SUBROUTINE 


INPUT 90598 
RESULT 99085 






- G2076 


SUBROUTINE 
| INeuT 9996 
| RESULT 90085 







f2031 









SUBROUTINE 
INPUT 99975 
RESULT 945928 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 91456 


1 
, ed Ed Co —> 
r) BEGIN 00108 e 
, ace ——— a | 
2 


ol 


91404 


SUBROUTINE 
INPUT 90000 
| RESULT 90000 














92195 





SUBROUT INE 
| INPUT 99073 
RESULT 90055 









m056 = 
90071 #00955 











| OOO57T = 
O15 4 +0056 





8 
8 1 ad 
2 
. SUBROUTINE 
0 INPUT 901998 
1 RESULT 90085 





N& 


Q 
{ 














52060 


1 


SUBROUTINE 


INPUT 
RESULT 


INPUT 
RESULT 





INPUT 
RESULT 






INPUT 


RESULT 





2034 


2004 


2076 


90098 
90085 


19 


02076 


SUBROUT INE 





000538 
90a5 







SUBROUTINE 


ONTO 
Noo7o 


21 


SUBROUTINE 


HI99 
90085 


22 


SUGROUT INE 


HI53 


W585 


2034 


SUBROUTINE 


INPUT 
RESULT 
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HOOT 
ITS 


24 


25 


PAGE 39 


02076 


SUBROUTINE 
INPUT 00060 
RESULT 90085 


WH 


g 
1 





35 
92001 









SUBROUT INE 
INPUT 90099 
RESULT 90085 





36 
d2a76 ~ 












SUBROUTINE 
TNPUT SO060 
RESULT 90085 






37 
2034 













SUBROUT I NE 
INPUT 90973 
RESULT 90999 






38 


90009 = 
+80000000+04 


01405 





6 Lore 

5 Py 

° SUBROUT I NE 

9 INRUT 99057 
t RESULT DOO0TK 
8 92001 

2 

° SUBROUT INE 

a INPUT 90099 
i RESULT 909085 





| 14 
92076 
SUBROUTINE 


INPUT DO057 — 
RESULT 90073 















14 





00055 = 
90071 x97 1 





HHI56 = 
00051-00055 








9 2105 

tj 

. SUBROUTINE 
3 INPUT 90973 
7 RESULT [0057 


99058 = 
HOG56x00057 
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PAGE 39 CONTINUED 


91451 


SUBROUTINE 
INPUT 99900 
RESULT 9965656 





26 


00055 = 
90071 x9O0741 


27 





90056 =— 
90051-90055 





| 28 
2196 
SUBROUT INE 


INPUT 50056 
RESULT OOK57 












29 
Nea. 
SUBROUTINE 


INPUT 90073 
RESULT 50058 






00059 = 
NOOS7 G58 
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45 


46 


av 


48 
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K VALUE = 91456 





beds. 


2001 
SUBROUT INE 
INPUT 905938 
RESULT 90085 

















N2076 
SUBROUT INE 
INPUT $9050 

RESULT 90098 









4 
8 O2076 
3 . 
: SUBROUT I NE 
c INPUT 90059 
1 





| RESULT 90039 





node = 
+ 3G +1 








0035 = (90069 
(O06) J 











90931 = | 
90082-00039 








90032 = 
N0030-990a3 








18 


4 BEGIN 00144 & 


19 


n2001 








SUBROUTINE 
INPUT 90098 
RESULT 99085 






O2n76 


SUBROUT INE 
INPUT 90056 
RESULT 90098 











; 24 
o2076 
SUBROUT INE 


INPUT GO050 
RESULT 99099 — 






22 


oog06 = 
+405000000+01 





| 23 
no03G = (95569 + 
(95956) ) 
24 
O0031 = 
99082-G0035 
25 
noo32 = 
9930-900a3 
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SUBROUT LNE 
_INPUT 900938 
RESULT 90585 






37 
N20 76 











SUBROUTINE 
INPUT 00050 
RESULT 90098 






3a 
 Gea7Te 
SUBROUTINE 


TNPUT 99050 
RESULT 95099 














39 


noooe = 
450000500 +4, 


49 


ON035 = (@nnE9 + 
(GONGE) ) 


41 
00031 = 
99082-00030 
42 


90032 = 
99035-90083 





() ou 


01402 


90032 = 
00031 200031 


12 


90031 = 
00032+00031 


13 
32 = 
WOT2Ax9IO72! 
14 
031 = 
: 00032200031 
15 


2001 


SUBROUTINE 
INPUT 90081 
RESULT 96085 





2076 


SUBROUTINE 
INFUT OO0931 
RESULT 99598 





17 


©) 


| 26 
; 02751 
2 | suBROUTINE 
3 | _ineut 99932 
y | RESULT 99032 


27 





HI 





COMPARE 56532 
TO 00007 


oa |LO/ER 


91492 





90031 = 


OONS2K0031 


28 
00032 = 
90031490031 
29 


3G 





99032 = 
HIT 2490072 





31 


0031 = 
GOGS24I031 


M201 


SUBROUTINE 
INPUT 959081 
RESULT 909085 





2076 


SUBROUTINE 
INPUT S531 
RESULT 3098 


34 
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02751 


SUBROUTINE 
INPUT 00032 
RESULT 90032 


43 











M4 


HI \ 
< COMPARE 00032 — 
To 90007 





01402 
45 
00032 = | 
00031 430031 
46 
0031 = 
n0032H00031 
47 


00032 = 
900 72x72 









48 
0631 = | 
00032400031 
49 
8 
2 
a INPUT 99Ga4 
1 | RESULT 995945 
50 
3 2076 
9 
: SUBROUTINE 
c INPUT 50031 
1 





' RESULT 99098 


51 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 01400 





—s 
~90085 









900 
90030 


2 









N & 


? be Che 


23 


00030 = (90069 + 
(00006) ) 


24 


1 noo31 = 
90082-00030 


25 


noo32 = 
09030-99083 | 
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PAGE $f . 


39 





” SUBROUT INE 
INPUT 00050 
RESULT 90099 


40 


no0030 = (90069 + 
(G0006) ) 





41 
90031 = | 
90982-00030 
42 
0032 = | 


00030-90083 









RESULT 90032 


109 


HI 





COMPARE 90032 
TO 90007 





n1402 
14 
o0032 = 
90031200031 
12 


90031 = 
00032100031 


13 
00032 = 
90072490072 
44 
00031 = 
90032200031 


=O: oof 





iv 


HIGH 


2 
26 
; 02751 . 
2 1 suBROUTINE 
q | iNPuT 99932 
1, | RESULT 59932 
27 





COMPARE 90532 
TO 60007 


91492 





M32 = 
1531 400031 


M031 = 
MO32K00031 


28 
‘ 29 


30 
HOO32 = 
YRITZ&90I72 
31 
M0031 = 
MHIZ2sOHI31 


Neti 


New 


SUBROUT INE 
INPUT 90081 
RESULT 90085 


eee) 





O2076 


Oo % 


SUBROUTINE 
INPUT 00031 
RESULT 950938 


pm Eh 





34 
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@) 











. de. 43 
: 02751 
- 1 suBROUTINEG 
: INPUT 032 
+ | RESULT 90032 


44 


HI :: 
COMPARE 90032 — 
TO 90007 


C3 JLOvEa 


1402 





45 


ooG32 = 
90031400031 


46 


OOM131 = 
OONS2s00031 


4a? 


NO32 = 
S0T2%900 72 


43 


00031 = 
90032400031 


Heng4 


SUBROUTINE 
INPUT 99581 
RESULT 90085 


=e ND 





50 






02076 


SUBROUTINE 
INPUT 00033 
RESULT 90098 









St 


: 
— 








WASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


.% VALUE = 01400 





qe2001 
SUBROUTINE 


INPUT 90098 
RESULT 90035 








azn76 


SUBROUT INE 
INPUT 90050 


g2076 


SUBROUTINE 
_INeut 90050 
RESULT 90099 


90030 = (90069 
~ @00g6)) 


90031 = 


00031 = 
90082-00030 


90082 -90935 


90032 =— 
90030-90083 


90032 = 
00030-90083 
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BEGIN 00149 6 e BEGIN 09150 


18 











| RESULT 90098 
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PAGE 52 





00031 =. 
90082-00030 


o0032 = 


09030-90083 





42 


02751 
SUBROUT LNE 


INPUT 90032 
RESULT 99932 


19 






WL 





COMPARE 909532 
TS 90007 


& LO/EQ 


o1ane 





41 





90032 = 
00031 400031 








13 





noa32 = 
PT 2xGII7T2 






14 





90031 = 
0032400034 





15 





92001 










SUBROUTINE 
“INPUT 90081 
RESULT 9085 






16 


2076 






SUBROUTINE 
INPUT 99931 
RESULT 961593 






17 








| 26 
oe 02751 
‘ SUBROUT INE 
g | INPUT 99032 
4 | RESULT 99032 





27 


HI 





* COMPARE S532 ° 
“N. To 96557 


C3 ILosea 


1402 


28 





. 36 
0032 = 
QT 2290072 

31 

60031 = 
GIG 32e00034 

32 


neu 









‘SUBROUTINE 
INPUT 90081 
RESULT 95585 






33 
2076 
SUBROUTINE 


INPUT 59631 
] RESULT 99998 





34 
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(*), 


“92751 
SUBROUTINE 
INPUT 00032 

RESULT 99032 


43 










44 


HI 
COMPARE 00032 
To 90007 






( > LOvEa 
o14n2 
45 
q9032 = 
90031490031 
| 46 
00031 =_ ; 
00032430031 


aT 






90032 = 
90072 «90072 


” 






48 


90031 = 
90032400031 


49 
92004 | 
SUBROUTINE 


_ INPUT 99081 
RESULT 909085 












50 
o2zq76 





SUBROUTINE 
INPUT 99931 
RESULT- 90092 





“51 
EXIT 


NASA-GSFC MISSION AND “TRAJECTORY ANALYSIS DIVI PAGE 53 
K VALUE = 591400 


18 





e BEGIN 00153 ‘ r BEGIN 00154 e 


9006 = _ : 0006 = 
1200000002 | _ttascogoa +02 


o2001 


SUBROUTINE 
INPUT 90098 
| RESULT 90085 


92076 | 2 g2o76 Jal o2a76 


TNeUT SeNSO | INeut 99050 | Pe cana 
RESULT 90098 [1 | ResuLt 90098 1 | Resucr oon98 


G2076 3 2076 Pe ae 


SUBROUT I 1 (2 | SUBROUTINE | Seah 
INPUT Sansa | 9 7] INPUT 99050 — Teor neasd 
RESULT 99099 { 1 | RESULT 9599 7 RESULT 95999 





49 


o0030 = (90069 + | { S903 = (2 | 90039 = (9an69 + 
(00006) ) : og: _ a9 n6)) 





00031 = G31 = 
90082-0003 o | 982-0 ie 530 | 90082-50030 





- ca : e 5 * Cea oo32 = CE er eer er cee: 7 
Gase = ef aie aoo32. = 
90039-90083 _ aes | 99935-90583 
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3 
; 92754 | 
2 1 sueROUTINE 

4 | _ENPUT 99932 

1 | RESULT 95932 






HI 
COMPARE 99032 
TD 00007 


. LO/EQ 
1402 
14 
h7yIS2 = 
00031400031 
42 


0031 = 


= COM326IOS1 








8 
2 

. SUBROUT I NE 
c INPUT 959081 
1 RESULT 99585 


92076 


SUBROUTINE 
INPUT OO031 
RESULT 99093 





po: oa 


17 


26 
: 92754 
@ | sUBROUTINE 
6 | INPUT 99932 
1 | RESULT 99932 
27 






HI | 
COMPARE. 05932 
TO §6007 





& LO/EA 
4402 
28 
OOG32 = 
, 50031400031 
29 
09031 = 
OHS 22010031 
30 
90032 = 
; 07290072 
31 


3 

Z 

. SUBROUT ENE 
f INPUT 90081 
1 RESULT 90085 


Ne76 


SUBROUT INE 
ENPUT SO31 
RESULT 90093 





34 
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43 


1 2751 

2 | guprouTINE 
¢ | input 99932 
1 RESULT 95032 


44 







HI ™ 
COMPARE OO032 
Ta 90007 


C Nova 
31402 
45 
oon32 = 
10031 x00 34 
46 
00031 = 
0032400031 
Av 
90032 = 
90072590072 
00031 =_ 
no032400031 


49 















a 52004 

2 

: SUBROUTINE 

c INPUT 90081 

1 | RESULT 99085 
59 

8 q2076 

9 

: SUBROUTINE 

9g INPUT 99031 

1 


RESULT 90098 


$1 


NAGA-GSFC MISSION ANC TRAJECTORY ANALYSIS DIVI 


K VALUE = 91405 


2 
Ooo0G = 
+1599090005+02 
3 






92001 


SUBROUT INE 
INPUT 900938 
RESULT 90085 





genre 
SUBROUTINE 
| INPUT 99050 
{ RESULT 90098 






n2076 


SUBROUTINE 
INPUT 90050 — 
| RESULT 921099 








90030 = (90069 + 
(99906) ) 





19 
COONS = 
+16000000+2 





SUBROUTINE 
INPUT 90698 
RESULT 90985 





ae at 
02076 






SUBROUT INE 
| INePuT 90050 
RESULT 90093 






| 22 
e076 






SUBROUTINE 
INPUT S056 
RESULT 99599 







23 


0030 = (90569 + 
(OG9G6) ) 


24 


OOoO31 = 
9082-0035 


25 


g5032 = 
99030-90083 
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 oon06 = 
#1 70000tu+02 





SUBROUTINE, 
INPUT 90098 
RESULT 90085 






| 3a 
cen 













SUBROUTINE 
INPUT 90050 
RESULT 90598 






39 






o2076— 





SUBROUTINE 
INPUT SO056 
RESULT 99099 


4 






45 


50035 = (anes + 
(GO0N6) } 


41 


MO034 = 
III82-05030 


42 


OOn3e2 = 
90039-99083 





: 9 
+ O275¢ 
. SUBROUTINE 
1g | _INeut 90032 
14 | RESuT 0032 


19 






HI oN 
COMPARE 90032 
TO 90007 


n1ane2 





11 









90032 = 
0031400031 


12 









n0031 = 
non32400031 


90032 = 
GFOI72x972 





14 









90031 = 
90532400031 


15 






21 






SUBROUTINE 
INPUT 95081 
RESULT 99985 












RESULT 99993 | 


16 
a q2076 
: SUBROUTINE 
9 INPUT 001931 
4 


iv 


HI 


26 
02754 
SUBROUTINE 
INPUT 99932 
RESULT 99932 











27 





COMPARE 0032 — 
TO G6007 


& |Losea 
1402 3 


28 









; 99032 = 
90031400031 










90031 = 
90032400031 









90032 = 
W725 72 


‘31 


GO031 = 
HIG32+00031 


32 


oH! 










SUBROUTINE 
} INPUT 9934 
|] RESULT 95985 





33 
2076 











SUBROUTINE, 
INFUT 90031 
RESULT 90098 


34 
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oO 


o2751. 


SUBROUTINE 
INPUT 90032 
RESULT 00032. 


43 











a4 





HI ™~ 
COMPARE 00032 
\. To 90007 


91402 | 
45 
00032 = 
90031200031 
46 









90031 = 
o0032s00031 


AT 








noose = 


gnnt2x«90072 
43 
00031 = 
09032410031 


; 49 
92001 | 











SUBROUT INE 
} INPUT 90084 
RESULT 95985 


55 









n2n076 





SUBROUTINE 
“INPUT 99031 
RESULT 99998 


31 


NASA-GSFC MISSION ANO TRAJECTORY ANALYSIS DIVI 


K VALUE = 91405 








SUBROUTINE 
INPUT 09050 
RESULT 90099 









90035 = «(go069 + 
(OUGCIS} ) 









90031 = 
99082-00939 





% 









nq032 = 
99039-950a3 





18 
8 BEGIN 99159 ‘ 
19 





no006 = 
-+1.9000000+02 





neni 
SUBROUTINE 
INPUT 90098 
RESULT 90085 






el 







N2076 


SUBROUTINE 
J INPUT 900590 
RESULT 95098 







22 







C2076 





SUBROUTINE 
J} INPUT 99055 
} RESULT 95099 





23 


90030 = (90060 + 
(SUGGS) ) 


24 


05031 = 
90082-90936 


25 
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UNKNOWN 74 






n2004 






SUBROUTINE 
INPUT Oo0a0 
RESULT 9n098 






J. 38 
AND PARTIAL R DoT = 
BAR/ X 74 i 





SUBROUTINE 
INPUT 00083 
RESULT 90099 





49 
1 copgpttt CH WER ) 
COMPU Y 











ee jLovea 


01402 


| 41 





90032 = 
| 90031 490034 





12 






00031 = 
0003200031 






13 


0032 = 
q007290072 





14 


. N0034 = 
DNN32300031 





15 









n2od1 


SUBROUT INE 
INPUT 99981 
RESULT 99085 






16 
— g2n76 








SUBROUTINE 
INPUT 09031 
RESULT 99098 





h~ 17 


EXIT 
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PAGE 33 CONTINUED 


26 
ty o275t 
2 7 suarouTINe 
4 | _UNeuT 99032 
41 RESULT o0932 ; 
2? 





HI 





COMPARE 56532 
TO GOOCT 








| 29 
50034 = | 
0032800031 
30 










90032 = 
WO72x90072 










‘31 


OO034 = 
532x00031 






32 


Geo01 





SUBROUTINE 
| INPUT 959934 
| RESULT 996585 















33 
— <Gen76 





SUBROUTINE 
INPUT 50031 
RESULT 959593 





34 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI ssagh PAGE 56 
K VALUE = 91409 


2001 


SUBROUTINE 
INPUT 90586 
| RESULT 99098 


SUBROUTINE 
INPUT 59089 
RESULT 90099 





| 6 
a, WHICH WERE 
COMPUTED BY MCOL 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OIVI PAGE 


MISCELLANEOUS STATEMENTS 


K VALUE = 91490 


4gnonsad252 
9006892751 
ao0069011390 
9007901101 
q90071511952 
@9007291119 
99007391120 
99007400240 
a9nn7 500222 
@9007600225 
90907700228 
99007800231 
99007990234 
a9008000237 
9a008190241 
agnn8200200 
990098301100 
qone0s400210 
a9008502085 
9008602001 
@90087 02076 
aganasn2o41 
a90n3902031 
agnnescd2n6 1 
a900912271 
29009202196 
a9nnesd2101 
99909492105 
agtng503852 
agang6nd201 
agnog7an2n2 
a90098003805 
a9nn99003383 
vonn9e+7400n000+n2 
yonoso+n0000000+n0 
yon051+10000000+04 


voog0s2+20000000+01 
v00053+30000000+01 


vo0054+50009000+00 


J» NO. OF UNKNOWN 

ABSOLUTE VALUE FUNCTION 

FIRST LOC. OF T(P,@)"S, TIMES OF DRA 
A, SEMI-MAJOR AXIS AT T(0) 
ECCENTRICITY AT T(0) 

N, MEAN MOTION AT TCD) 

ECCENTRIC ANOMALY AT T(O) 

ECCENTRIC ANOMALY AT T 

ALPHA BAR 

BETA BAR 

GAMMA BAR 

P BAR 

@ BAR 

R BAR (COMPUTED BY POS. IN ELLIPSE) 
R DOT BAR (COMPUTED BY FOS.IN ELLIPS 
T, OBSERVATION TIME IN C.U.T. 

T(9), EPOCH TIME IN C.U.T. 

MAG.OF R BAR (COMPUTED BY POS.IN E.) 
va 

VECTOR MOVE 

SCALAR MULTIPLY 

VECTOR SUBTRACT 

VECTOR ADD 

CROSS PRODUCT 

PRINCIPAL VALUE 

SQUARE ROOT 

SINE 

COSINE 

MU 

$s (T) 

Cc (7) 

PARTIAL R BAR / x J} 

PARTIAL R DOT BAR / x J 
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CROSS=REF ERENCE LISTING PAGE 5A CONTINUED 


PAGE BOX LABEL REFERENCE 


34.91 01401 13.07 38.04% 38.10%  38.22x 39.04e 39.13%  39.25« 
40.04% 40.16% 67.05% 


34.08 01479 34.05 
34.10 91501 
35.01 91502 
36.91 1503 
37.17 91504 
37.23 01505 
37.29 015056 
38.01 01507 
39.91 91508 
40.91 91509 
40.27 1510 
41.021 01511 
41.11 01519 
42.12 91520 
42.27 01521 
43.01 01522 
43.16 1523 
43.31 91524 
44.01 91525 
44.16 01526 
44,31 01527 
45.01 n1528 
45.16 91529 
45.31 91530 
46.01 153% 
46.16 01532 
46.31 01533 
47.01 01534 
47.16 01535 
47 31 - 01536 
48.01 01537 
43.16 01538 
48.31 01539 
49.01 1540 
49,18 01541 
49.35. 91542 


169 
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CROSS-REFERENCE. LISTING | 


PAGE BOX LABEL REFERENCES 
50.01 01543 
50.18 01544 
50.35 01545 
51.01 01546 
51,18 01547 
51.35 01548 
52.01 01549 
52.18 1550 
(52.35 91551 
53.01 01552 
53.18 01553 
53.35 01554 
54.01 01555 
54.18 01556 
54.35 01557 
55.01 01558 
55.18 01559 
55.35 01494 
56.01 01495 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OI[VI 


K VALUE = 01600 


OP (OBSERVATION PARTIALS) 




















4. BEGIN 90069 
a sal ee 








90010 = 


51615 





= woo + | 
(0070) ) 


SUBROUTINE 
} _IneutT 99091 
RESULT 99085 





if 
a IS O8S. = THETA 1 
18 






COMPARE 90070 © 
NTO 00067 


@ YES. USE G3 BAR 1 







20 
ae 










SUBROUTINE 
INPUT 90073 
RESULT 90035 





21 
r) AND Gi BAR 4 
— = mnie FER nll 





PACE 57 


OBS. = THETA 2 





51668, 23 
BEGIN 600638 $ 

24 

F) USE G2 BAR r) 










2001 


SUBROUTINE 
} INPUT 90072 
| RESULT 90035 






11629 
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K VALUE = 01609 









SUBROUT INE. 
INPUT 90091 
RESULT 90099 








SUBROUTINE 
INPUT 99971 
RESULT 99035 





01627 









SUBROUT INE 
INPUT 90072 
RESULT 90035 






92001 


SUBROUTINE. 
1 INPUT 90971 
| RESULT 90041 












01628 






SUBROUTINE 
INPUT 99973 
RESULT 99035 






S1i629 
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PAGE 38 





91629 


19 


r BEGIN 90018 ry 
— 











SUBROUTINE 
INPUT 90074 
RESULT 00035 






92001 











SUBROUT I NE. 
INPUT 99082 
RESULT 90085 














22 
92041” 
SUBROUTINE 
INPUT 90071 
RESULT 00041 






01628 


PAGE CONTINUED: 


on 


SUBROUT INE 
INPUT 99075 
RESULT 90035 


SUBROUTINE 
INPUT 90072 


RESULT 00035 


02001 


SUBROUTINE 
, INPUT 91176 
01627 RESULT 90041 





f1628 
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K VALUE = 91690 


M~RATE 





_ BEGIN 09025 










SUBROUT INE 
INPUT 90072 
RESULT 90035 













SUBROUT INE 
INPUT 90073 
RESULT 90035 














92001 re (eet 
q20n1 
INPUT 90579 
RESULT 00038 


SUBROUTINE 
INPUT 99080 
RESULT 90038 





1630 _ 
91631 









90055+00056— 






7 
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2004 


SUBROUTINE 
INPUT 99078 
RESULT SOO33 





1630 


SUBROUTINE 
INPUT 99972 
RESULT 99035 


(204 


SUBROUTINE 
INPUT 99079 
RESULT 90038 


emt 


SUBROUTINE 
INPUT 90078 
RESULT 50044 





01665 
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R.A.-RATE 


02004 


nN @ 


SUBROUTINE 
INeUuT 90075 
RESULT 90035 


02001 


SUBROUTINE 
INPUT 90076 
RESULT 00041 


02001 


SUBROUTINE 
INePuT 90085 
RESULT 00044 
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K VALUE = 91609 





2 





58 .06— 
is 


- = — 7 
x) BEGIN [0027 a 









SUBROUTINE 
| INPUT 90094 
| RESULT 99655 














13 
2076 





SUBROUT INE. 
INPUT 099055 
RESULT 00032 







-9end4 


SUBROUT [NE 
INPUT 90091 
RESULT 95585 















ot 15 
cada. 
SUBROUTINE 


INPUT 50932 
} RESULT 90085 







16 





 9n0s6 = 
90051 90094 
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‘ BEGIN DOD28 9 


| 24 
o2001 
SUBROUTINE 


| INPUT 90090 
| RESULT 90085 









02051 


SUBROUTINE 
INPUT 60035 
RESULT 00047 









23 
2051 
SUBROUTINE 


7 INPUT So041 
‘RESULT fG048 










920014 









SUBROUTINE 
INPUT 99990 
RESULT 90085 — 





| 25 
92051 






SUBROUTINE 
INPUT 99091 | 
RESULT 90049 © 










26 
g2a76 } 





‘SUBROUTINE 
INPUT 50049 
RESULT 90032 






LHA-RATE 






+ § SUBROUTING 
GO | INPUT 90074 
1 L_RESULT 90035 


SUBROUT I NE 
INPUT 99981 
RESULT 00038 













RESULT 99041 





02041 
_INPUT 99078 
RESULT 00044 





o2041 
: SUBROUTINE 
INPUT 90071 


o1660 
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4 











31 





02051 
- SUBROUTINE 


INPUT 90035 
RESULT 00053 











32 
92051 _— 





SUBROUT I NE 
INPUT 09044 
| RESULT 90054 





33 





90055 = 
99053200048 





34 






90056 = 
90054200047 





NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
K VALUE = 


01600 








oenai 


SUBROUTINE 
INPUT 05032 
RESULT 90085 
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PAGE 61 


L OR M RATE 


59.10 





® BEGIN 90030 8 
Do — | 


02051 


SUBROUTINE 
INPUT 90091 
RESULT DO049 


o2076 


SUBROUT INE 
InPuT no049 
RESULT 00053 


 o2001 


SUBROUTINE 
| INPUT 99091 
_ | RESULT 90085 


92041 


SUBROUTINE 
INPUT 99053 
RESULT 99085 





2a 


agnose = 
0995190094 


4% 44 


90056 = 
90051 /90094 











18 






90056 =_ 
90051-90055 






; 19 
02196 
SUBROUTINE 


INPUT 00056 
P RESULT 00057 | 









90099 =~ 
0995300057 
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@Paee 61 CONTINUED 





32 


o2076 






SUBROUTINE 
INPUT 90096 
RESULT 90057 





| 33 
02001 | 
SUBROUTINE 


INPUT 90065 
RESULT 90085 






34 
o2041 
‘SUBROUTINE 


INPUT 90057 
RESULT 99085 






35 






90061 = 
90094+900 HI94 





36 






o0061 = 
00052 700061 





NASA~GSFC MISSION AND TRAJECTORY ANALYSIS Divi PAGE @2. 
K VALUE = 51600 


PARTIAL OF PHI DOT 


[oress j 


00049200061 


59.22 


25 


__ —a 
8 CRGIN 90031 $ 


02001 


SUBROUTINE 
INPUT 90090 
sancaiears $0085 


02051 


SUBROUTINE 
INPUT 90091 
. RESULT 00049 


SUBROUT INE 
INPUT 99057 
RESULT 99063 


a20d1 


SUBROUTINE 
INPUT OO065 
RESULT 99085 





G2o01 


SUBROUT I NE 
INPUT 90591 
RESULT 900a5 


O20541 


SUBROUTINE 
INPUT 99038 
RESULT SO032 





| n2001 rs 02041 
SUBROUTINE : SUBROUTINE 
a INPUT 50053 
1 } RESULT 90085 


90061 = INPUT 90063 
on062+00061 ! RESULT 90085 
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; 8 
m9 an 
2 
. INE 
0 IwPuT 90065 
| RESULT 90085 

9 








~Oe Oe 





ae 





m Oe 





PAGE 62 CONTINED - 


02051 


~~ & 


SUBROUTINE 
INPUT 00035 
RESULT 90033 





35 






SUBROUTINE 
RESULT 00057 


02041 


SUBROUTINE 
INPUT 00057 
RESULT 90085 





38 


39 


00061 = 
00051 700061 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 63 
K VALUE = 91600 









90057+00053 













SUBROUT INE 
INPUT 99057 
RESULT 90563 






G(K) eke 


MU 
OOUS57 = 
00047 *00047 














n2oo4 


5 
SUBROUTINE. 34 
INPUT poset aaane 
RESULT 90035 t = 
SUBROUT INE. Seca 90051-00057 
INPUT 90065 
RESULT 99085 















eu 
9 PARTIAL GK r) ae are | 


36 






2051 






92196 





SUBROUTINE 
INPUT 90035 
RESULT 90055 





SUBROUTINE 
INPUT 90057 
RESULT 90058 









7 
n0061 = 
00062+00061 







G2051 


SUBROUTINE 
INPUT 90038 
RESULT 99056 







(1-G (K) 2) e372 





5 
0057 = 
0905700058 






183 


ory 1 i 
O2076 
SUBROUTINE 


INPUT 90061 
RESULT 90054 










12 
g2001 
SUBROUTINE 
INPUT 99093 
RESULT 90085 





| 13 
aanad 
SUBROUTINE 


INPUT 599054 | 
RESULT 90085 





a 
SUBROUTINE 


INPUT GO032 
RESULT 90085 






pho om [eo on) Gea 





PARTIAL OF G DOT. 
K : 


JS 
90056 = 
00057+00056 














2001 


SUBROUTINE 
INPUT 99090 ~ 
RESULT 90085 — 












SUBROUTINE 
_ INPUT 99035 
RESULT 90047 












ere 
SUBROUTINE 
INPUT 00938 
RESULT 09657 
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PAGE 63 CONTINUED 





rr 






— oo0sa = 
9005600058 





42 
PARTIAL OF PHI 
DOT 
oe | 
 BBeE9 = 
00058+50059 


on) 





NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
K VALUE = 91600 


PARTIAL OF THETA DOT 


DO061. = 
_p9049x00061 | 





18 


| InNeuT 90090 
| RESULT 90085 | 
nen. 
SUBROUT INE 
eet ee INPUT 99593 
02051 


SUBROUT INE 
INPUT 90091 | 
RESULT 90049 _ 


o2n76 


SUBROUTINE 
INPuTr 90049 
RESULT MOOS 


92001 


SUBROUT INE 
INPUT 90091 
RESULT ga0a5 


Neda1 


SUBROUT I NE 
INPUT 90055 
RESULT 99085 





90gs56 = 
90051799094 


<q 





RESULT 99085 


92051 


SUBROUTINE | 
INPUT 99095 


| RESULT 90061 


02051 


SUBROUTINE 
INPUT [9065 
RESULT 0962 


one. = 





Saase +00061 
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PAGE 64 





O0055 = 
sintadida 730094 | 


‘02076 
SUBROUTINE. 


INPUT 90055 
RESULT 90085 


‘SUBROUTINE 
_INPUT 90057 
RESULT 90063 


35 


‘ _PARTIAL OF Gen) 4 





t t PARTIAL OF 6 G x 8 








am?) 


| SUBROUTINE 
| INPUT 90056 
q RESULT 90065 










— 7 
SUBROUTINE 
INPUT 90090 
RESULT 90085 








92076 ~~ 
SUBROUT INE 


| INPuT 90096 
| RESULT 90057 






poem 


SUBROUTINE 
INPUT 90065 


RESULT 99085 





15 





90061 = 
90051 00061 





o2001 
SUBROUTINE 


INPUT SO565 
RESULT 90085 | 


23 








me NG 





O2076 


Ow 


SUBROUTINE 
INPUT 9961 
RESULT 69054 


Be ty 





N2CKi4 


MN % 


SUBROUT INE 
INPUT 96193 
RESULT 90085 


te (Je 





M2041 


SUBROUTINE 
INPUT 09054 
RESULT 90085 





29 







2041 





SUBROUTINE 
INPUT 00032 
RESULT 90085 
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PAGE 64 CONTINUED 


perry _ 
‘SUBROUT I NE 


INPUT 00041 
RESULT 00056 







39 
02051 
SUBROUT I NE. 
INPUT 00038 
RESULT 00057 
















| 40 
92051 | 
SUBROUTINE 
INPUT 00044 
RESULT 00058 











o2001 
SUBROUT I NE 


| INPUT 99963 
RESULT 90085 











92051 | 
SUBROUTINE 
INPUT G0035 

RESULT 99059 










| 43 
92051 
SUBROUTINE 


| INPUT 90041 
RESULT 99061 











PARTIAL OF G DOT 
K 






Sf 
0057 = 
H0057+090059 





MASA-GSFC MISSION ANO TRAJECTORY ANALYSIS DOIVI PAGE 65 
K VALUE = 91600 





1 : 16 


oan62 = 
90962-00063 







PARTIAL OF G DOT | 
L 





5 
o0e58 = 
00058+00061 





17 


| ocoparsooosa | 





18 

: woAK62 = 

49062400063 | 

9 G (K) 0 A 

000482410057 | 

20 

SUBROUT INE. gon62 = 

INPUT 90035 | ives ones : 
i RESULT 90047 

21 


ngn63 = 





00047 730061 


22 
| 09064 = 
SUBROUTINE 06048300059 
| RESULT 99048 
7 ? 23 


00047 340055 





25 





nooes = 
noo 4asdn056 


© 


187 








NV @® 





ma 
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- PAGE 65 CONTINUED 





3 


8 





PARTIAL OF THETA | 
DNDSS /GO0SS_ 


CS) 





“K VALUE = 01600 
29006400358 
29008500365 
@9006600237 
@9008 700241 
@9006800310 
@9006900313 
@9007000253 
Q@9007 100316 
@9007 200319 
@9007300322 
9007 400325 
@9007600331 
9007700334 
@9007 800337 
@9007900340 
@9008000343 
@90081 00346 


9008300352 
9008400355 
@9008502085 
99008702051 
@9008802076 


vonoe7 +17000000+02 
voo0s 4+10000000001 
v00052+20000000+01 


oOo Qaea 


o © 20 7 © © 6 
ee: a, er: ec | ee, ec a a oe |< ars 


PARTIAL OF (RHO DOT BAR) S/xJ 

RHO BAR | 

RHO DOT BAR | 

R BAR, SAT.POS.VECTOR (FROM PE) 

R DOT BAR, SAT. VEL. VECTOR (FROM Pe) 
CAP R BAR, STATION POSITION VECTOR 
CAP R DOT BAR, STATION VELOCITY VECTO 
OBSERVATION TYPE 


BAR 
BAR 
BAR 
BAR 


BAR 

BAR 

BAR 

DOT B AR 
DOT BAR 
DOT BAR 
DOT BAR 
DOT BAR 
DOT BAR 
DOT BAR 


< 
@ 


VECTOR MOVE 

DOT PRODUCT 
SCALAR-VECTOR MULTIPLY 
VECTOR SUBTRACT 

(RHO BAR) x 

PARTIAL OF R BAR / XJ 
(RHO DOT BAR) * 

PARTIAL OF R DOT BAR / XJ 
RHO 

RHO DOT 

VECTOR DIRECTION 
VECTOR MAGNITUDE 
PARTIAL OF OBS. 7 XJ 
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PAGE BOX 
57.01 
 *57.23 
57 .26 
56.01 
58.05 
56.07 
58.12 
58.14 
58.17 
58.19 
59.01 
59.08 
59.14 
59.14 
59.19 
59.23 
60.01 
60.04 
60.10 
60.20 
61.07 
61.22 
62.25 
64.04 


CROSS-RE FERENCE LISTING 


LABEL 
01601 
01668 
01669 


01612 
01612 | 


01613 
01614 
01615 
01616 


01617 


01616 
01619 
01620 
61621 
01622 
01623 
01624 


01625 


01626 
01627 
o1628 
01629 
01630 
01631 
o16e6o 


REFERENCES 

213..09% 

57 16 

57.18 

58.06 58.08 
57.22 58 11 
57.25 58.15 
39.10 99.135 
59.22 60.03 
59.18 59.27 
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58.16 
58.18 


58.22 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OIvi 


® VALUE = 01706 


CC (CONVERT CORRECTIONS) 





01731 | 
i] BEGIN 00031 6 











| SET DELTA N“S =0 
| noes + 0005)) 
_ = G0070 





<< COMPARE C0084 
™. «TO 90005 





{14 564 


SUBROUT INE 
INPUT 90005 


| RESULT 02780 


1301 


SUBROUTINE 
INPUT 99000 
RESULT 00000 
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PAGE 66 








SUBROUTINE 
INPUT 90022 
RESULT 00064 






40 





— 90085 = 





900025000 161 

41 

: 00085 = — — 
00071-00085 


42 






90086 = > 





9000290002 
43 
oo086 = | 
99971-00086 
84 





02196 







SUBROUTINE 
INPUT 99na6 
RESULT Dona6 






“PAGE 66 CONTINUED 













SUBROUT INE 
i INPUT 90916 
| RESULT 90063 






COMPARE oo0T1 "e 









GET UNKNOWN XJ 
f 

00007 = «90095 + 

«09005)) . 





192 


NASA~GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 67 
® VALUE = 93700 


NOT USED, SO COMPUTE 





15 
? 

YES. COMPUTE 
CORRECTIONS ONLY 16 






DELTA N(K40+@) 
(90045 + (00066)) 
= 0008S 








COMPARE 99906 ‘>. 


X%(40+@Q) 
TO 099075 


. 01729 
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PAGE 67 CONTINUED 





194 


NASA~-GSFC MISSION AND TRAJECTORY ANALYSIS DIV! PaGE 66 
« VALUE = 01700 





¥2 x3 
14 43 
r IN ii r) ‘ IN i2 8 
14 
60065 = 
00071 790008 
1s. 
po0se = t™~” 









eR SE 17 
DELTA RHO SLB I = | 
xd g008a6 = 
f 00070-00085 
«900k4 + (00034)) 
= 00007 
18 
oo0a6 = 
90086400007 







+DELTA SMALL 
OMEGA (0) (X3) 


f 
90075 = 
90075+000a6 


20 
ooasé = - 
00085s00095 
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PAGE 68 CONTINUED 










+OEL-TA Ao) 


90065 = 
90065+00065 





01778 


196 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS Divi PAGE @8 
K VALUE = 1700 


x5 x6 









DELTA Moeora) 
«90025 + (0086) ) 
. = 00065 a 


01778 






CELTA TOS) 
. POTS = 
go076+a0085 
















oo0s6 = 
GO085300007 | 


| 10 
+DELTA CAP 
OMEGA 5) 


90077 = 
_ 90077+00086 





11 


o0ge5 = 
00063100085 






12 


90085 = 
90070-00085 


197 








+DELTA 106) 
y 





90076 = 
90076+00085 









90086 = 
-00085+00007 









-+DELTA CAP 
OMEGA (x6) 
JS 
goo7? = 
90077+00086 






| 24 
oo0as = 
00063400085 | 


+DELTA Bia (O) (x5) 


90074 = 
90074+00085 


+DELTA SMALL 
OMEGA ri (x5) 
$0075 = 
90075+00085 





51773 
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+ DELTA SMALL 
OMEGA - (x6) 


90075 = 
90075 +00085 





01778 


P AGE 68 CONTINU ED. 


AMRBA~CSFC MISSION AND TRAJECTORY ANALYSIS SVE 
& VALUE = 01700 







| +DELTA Pat ay (xa) | 
: 90074 = 
90074+00007 







+*DELTA SMALL 
OMEGA o (4) 


90075 = 
90075+00007 sy 


T1773 


| soeuTa £07) Oxt9n 


ms 





[| +DELTA Nye) ody) 


S067 = 
90567 +90007 





 +DELTA DELTA 
(19) 


f 
90072 = 
90072 +H0007 






+DELTA 
PHI co (X19) 
90074 = 
S074 +0007 








90085 = 
0095300007 


+DELTA MCD) (x19) 






f 
95973 = 
JN97 34000985 


—4gGa5 = 
qO094K00007 


J 
95579 = 
-90079+000a5 





1772 


199 


PACE «70 








90085 = 
0490010 








9001 


45 





00086 =— 
1085x9001 0 


16 


0086 = 
NO086#9001 1 


17 


nodes = 
0864901 1 


1a 
92105 









SUBROUTINE 
INPUT 996128 
RESULT 00a7 





19 


90086 =— 
55036<000a7 


n0Ka6 = 
9586 #90087 


te 


W95R7 =. 
VPA is 


PAGE 76 COR TINUED: 


22 
oooeT = 
00087290001 
23 
0006? = 
0008? #90001 
24 
o0ns6 = 
00086 ,00087 
28 
OOHHST = 
9000es90002 
26 
ONS? = 
00071 -00087 
2? 
oone6 = 
00087-00086 


Ki 


f 
900a6 = 
90086 90002 


K2 


f 
000385 = 
noose 790004 





3a 









HONBa = 
OOO72 x90 
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MASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI Page . He 
« VALUE = 07700 









+DELTA nua) (X?) 





SONG? = | 
90067 +000086 


+DELTA SMALL 
OMEGA ©) (x7) 
90075 = 
90075+00086 


gg0se = 
90071+00088 





201 


© *4 


onges = 
0085400088 










; : = 2 
99987+00088 





12 





o2i101 
SUBROUTINE. 


_ INPUT 90003 
RESULT 90083. 










1 wh he 





13 





14 
p0088 = 
|  90010.00088 


15 






K3 
5 
(87T = 
00087 7000838 






16 





qo0aa. = _ 
00072%90001 





17 





pone38 = 
DOS8aMIoG07 





18 





+DELTA A(X?) 
J 
90065 = 
90065+90088 — 










27 





+DELTA M(D) (x7) 
f 
90073 = 
90073 +505a6 


28 







0008 53007 






| | 2 
DELTA RO) (x?) © 
5 


95970 = 
906570 +00088 










+DELTA CAP 
E) (x7) 
5 
ITZ = 
990794000388 







91778 


202 


PAGE 71 CONTINUED 





42 





RS 
f 
oo0a7 = 

9087400086 






* 


| | 43 
re 
00071-90085 


4a 


90001 #90001 





43 
00085 = 
00088200085 


| 46 

02105, 
SUBROUTINE 
INPUT 90018 
RESULT 90089 






4a? 






oaga9 = 
DO0894I089 





48 






- ggne9 = 
90010200089 





49 






- gooa9 = 
90010200089 





WASA-OEFC MISSION AND TRAJECTORY ANALYSIS DlvI 


K VALUE = 01700 


i 
o00a9 = 
00085-00089 
2 
00090 = 
00072s90002 
3 
KS 
5 
00ns9 = 
00089 /000s0 
4 
00085 = 
90001 400085 
5 
9 
D 
3 
> 





§ 


co09s0 = 
90010800090 


o0091 = 
| 90001 #90002 


00072400093 


7 
8 

Oooog1 = 
9 

0090 = 


i) 
d00n91+00090 





19 
90088 = 
20 
wee ACS) 
90065 = 
90065 +00088 
. . 21 
00087 = 
00087300089 
22 
DOs? = 
D008? sOnn7 
23 





+DELTA SMALL 
mar 


90066 = 
900966+00087 






24 


n0087 = 
NHOO85290007 


25 






+DELTA NU(O) (x8) 
J 





IGT = 
916 7+00087 


26 


0087 = 
HO070-950a7 


e) 
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PAGE 72. 





+DELTA CAP 
E@) oer 
90079 = 
90079+00087 






OLT78 


Past 32 CONTINUED 








10 
00090 = 
00089400090 
28 
41 oo087? = 
00095300085 
00065 = , 
000¢s0-00065 
29 
i2 00087 = 
0G087a00007 
o00e5 = 
00087400085 
13 
02101 
SUBROUT INE 
INPUT 90003 
RESULT 90090 
31 
00087 = 
14 90004 00072 
o0a9G = 
900023000380 
32 
00087 = 
15 00086200087 . 
o00sG = 
90010900090 
33 
O87 = 
00087200007 
34 





+DELTA as (X8) 





90071 = 
17 
90088 = 
00088%99001 
35 
99087 = 
| 18 90094400085 
00088 = 
09083400087 
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MASA-GSFC MISSION AND TRAJECTORY ANALYSIS OlvI 
*® VALUE = 01700 






90085 = 
00086400007 









a : 25 
#DELTA NUCD) (x9) 








- = j 
70086 = 90067 = 
9000690006 911067+9098a5 
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PAGE . 








_it 





13 





16 





00087 +000a6 





17 





00086400085 





- PAGE 73 CONTINUED 











a 
90070-n0085 — 


er 


+DELTA SMALL 
OMEGA o og) 
90075 = 

- 90075+00085 





28 


99085 = 
90095 #00086 









90085 = 
— 90085400007 


» +DELTA me x9) 


073 = 
90073+00085 











___ +DELTA_— 
THETA (3) (x9) 


S 
97a = 
ode SVIT8+000I7 






32 


—900a5 = 
90086400094 





33 





_oas = 
90985400007 





K VALUE 2 01700 


@9000001 105 
@9000101101 
a9000201 102 
49000301 103 
@9000401104 
@9no0ds 00200 
asdn0603ses2 
9000701107 
@90006003980 
9000900383 
49001001110 
9001101111 
29001201112 
29001301113 


@9001401114 


q9001501115 
99001601116 
99001701117 
99001801118 
@9001901119 
@9002201120 
@o002300252 
ag002400524 
29002500525 
99004500545 
as006s00s00 
@9006600501 
asno6 700802 


T(0) 

AS 
SMALL E 
NUD) 


R BAR 
TWN) 


V BAR 

PARTIAL R BAR (x(J)) 
PARTIAL V BAR (x(J)) 
R«O) 

v«(D) 


OELTA 


(0) 

PHI (0) 

SMALL OMEGA (0) 
I 

CAP OMEGA 
THETA (9) 

N 

CAP £(0) 

J; UNKNOWN NO. 


LOC.PRECEDING DELTA N(2,@) OR DELTA 
DELTA N(2,Q@) OR DELTA RHO suB I 


DELTA N(3,@) 
DELTA A 

DELTA SMALL & 
DELTA NUCOD 
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A307 100516 
@9007200511 
9007300512 
49007400513 
@9007500514 
@9007600515 
@90077003516 
@9007 800517 
@3007900519 
@9008502085 
@90087 02076 
@9008802031 
09008901 301 
@o00en01401 
a90ne102101 
@9009202105 
@9009302196 
@s00s400400 
a9009500441 
29009600013 
agnos7 00002 
@9009804501 
@901 0000099 
vo0070+00000000+00 
vooo7 1 +10000000+01 
vooo7 2+20000000+01 
¥00073+39000005+01 
vono07 4 +19000000+N2 
v0007 5 +39000000+02 
vooo79+74000000+02 
v00033+73000000+02 


DELTA R BAR. 

DELTA Vv BAR 

DELTA R(D) 

DELTA v(D) 

DELTA DELTA 

DELTA ™(0) 

OELTA PHI (0) 

DELTA SMALL OMEGA(D) 
DELTA I 

DELTA CAP OMEGA 


DELTA THETA(D) 


DELTA CAP E10) 
va 
veuv 


Si 
VECTOR ADD 


PE 


PP 
SIN 

cos 

SQ RT 

J (UNKNOWNS). 
xO) 


LIMIT OF UNKNOWNS 


MILIMIT OF as) 


. ORBIT GENERATOR 


ORBIT GENERATOR IDENT. 


MASA-COFC WISSION AND TRAJECTORY ANALYSIS otve wat 9k 


CROSS REFERENCE LISTING 


PAGE BOX LABEL REFERENCES. 


MME = 01700 => 


@8.01 o1701 14.818 

6.05, 01731 «| @6..007 

06.48 o1776 66.06 

of 15 oirse €7 .02 

7.19 0177? 67.17 

er .21 . 01730 67.20 | 

0.05 OF 67.24 66.02. 88.04 66,10. 40,48 . o0.83 oie 
: 69.16 69.29 70.06 0.12 78.38. 72.37 9Ecse 

66.08 01720 ; 

66.4% 01711 

66.13 01712 

‘ 69.01 o1Tres 6? .20 

€9.05 o1?t4 

69.17 01745 

70.01 01713 

70.05 01728 

10.13 01746 

71.33 o1?47 

73.01 o1718 
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| WARA-CSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
“® VALUE = 01840 


COMPUTE DRAG AND COMP. 
_ PERT. EFFECTS 


STORE TIME AT 
WHICH TO COMPUTE 
ORAG EFFECT 


COMPARE 90006 — 
TO 90002 





210 


PAGE ve 





PAGE 74 CONTINUED, 





ii 





| TAPE AT 1) - (ELEM. 
§ FROM PERT. 


f 
90031 = 
90031 ~9001 1 









211 


VALUE = 01880 ‘ 
9000104401 DRAG (ELTA MF. 
a9n00200005 COMP. PERT. OPTION 
@9000303401 COMP. PERT. TAPE READ F. 
9000400200 TIME OF DRAG EFFECTS 7 
@9001000270 A ELEM. FROM PERT. TAPE 
ag001100271 E- "AT Epoch < 
9001200272 y 
29001300273 4 
@en01400274 ‘SMALL. OMEGA 
ag001500e75. CAP OMEGA 
aa0o3000276 DELTA A 
@9003100277 DELTA £ 
99003200278 DELTA I 
@9003300279 DELTAN 
eenns4n0ze0 DELTA SMALL OMEGA 
* agng3s00261 , DELTA CAP OMEGA 


CROSS REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 


K VALUE = 01640 
t4.03 01641 8-262. .0te 
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rr 


PACE 7S 


WASA*CSFC MISSION AND TRAJECTORY ANALYSIS OIVI 


K VALUE = 01850 





gan2e = 


aoa2e+0001 7 








01878 


12 

—,, 

$ 

ne =e — | 


©) 


BEGIN OO034 





01864 

r= mesD =a 
a 

Hereane 


_ 


Lovea 


2) GREATER 


NEGATIVE LIMIT. 





ee 
i 


, EMPONENTIAL FUNCTION 


“y  aemeaameta aomemamnal ee ne 
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| YES. SET ANSWER 's | 


e 


j 
00024 = 00010 





| (0001 + jon04)) | 
: = 00011 : 


13 | : 29 


90007 = ; | conee = 
f  gooossoo01s = | . | 90022200007 





\/ 35 

= | o0009 =" 
} 17 | 

: 36 

| 99008 = co011— | 


76.03 | 
o1876 | 37 


(extn ¢ BEGIN GOD26 3 4 
a Se << — | 
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| ? 
NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 3 
K VALUE = 91850 





COMPARE 90005 — 
To 90010 









oon24 = 
9004100023 






nee 6 Gl 


tT mney 
g BEGIN 0028 a 
Soa a) 
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CROSS REFERENCE LISTING | 


_ PAGE BOX LABEL 
K VALUE = 01850 


" #$.02 | 01851 
15.08. - 01883 
75.42 o18e6 
“75.19 01875 
05.37 o1e76 
"76.06 01877 
” 76.09 01878 


K VALUE = 019880 
-. YOD010+00000000+00 
vono1 1+10000000+01 
v0001 2+10000000+02 
V¥00013+43429448+00 
VO0H1 44+31622787+01 
v00015+36406910+01 
V00016+66284315+01 
v00017 +80196410+01 
V90018+75467547+01 
V00019+42440739+01 
vG0020+56549020+01 
v00030+109009000+38 
vooos1 +85000000+02 
vooo032-ssc00000+02 


REFERENCES 


178.24% 178.2% 


75.04 
75.06 
75.14 
76.03 
76.01 
75.07 
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75.10 


75.14 


76,07 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
K VALUE = 91900 


SATELLITE IDENTIFICATION 
LOAD FUNCTION 


DATA 1S ON BCD 
TAPE. EXIT WITH 





3 


(rirst worD or 
{ SATELLITE IDENT. ¢ 








91927 | 15 


a BEGIN SO027 ] 











READ TAPE A 
BCD MODE 
— go005 on025 












BEGIN 00028 8 
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PAGE T? 









TAU-O IN RADIANS 
qo000s + wmonne)) 
= oon21 | 








ii 





| SATELLITE NO. | 
(o00n4 + qwoona)) 
00005 


— 
es 











YEAR 4k DATE OF 
| | eee 
con002 +  (0NN04)) 
= 90006 













| MONTH JULIAN DAY | 
: 00g ‘ 


| f 
coo003 + (00004)) 
= 00007 







DAY xx | 
f : 

qoo0g04 + (0004)) 
so0098 | 


ir bd 
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ia 


PAGE 77CONTINUED ~ 


CROSS REFERENCE LISTING 
PAGE BOX LABEL REFERENCES 


K VALUE = 01900 


7.01 ' 01901 78 .0?* 
TT .06 01928 ?7 17 
77.15 01987 77.04 


K VALUE = 01900 


ancnz201971 H-M-S TO RAD) FUNCTION 

a0002301966 D-M-S TO RAD. FUNCTION 

v00024 +00000000+00 {USES LOCATIONS 1 TO 34) 

v00025 +10000000+01 ENTER WITH (2)=0 IF SAT. DATA IS 
v00026+10000000+0¢: “CARDS OR (Z) NOT EQUAL TO ZERO IF 
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NASA~GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 
K VALUE = 01940 


SATELLITE IDENTIFICATION 
LOAD AND PRINT 


SATELLITE IDENT L. AND P. a5 
FUNCTION (USES 
jo1941 | WRITE PRINTER 
90000 Ge0c9, 
1.15 
1 
_ ee (as — 
° 6©BEGINODOOL is 16 
‘ : 18 





17 







WRITE PRINTER , 
BCD MODE 


NO OUTPUT, 
| EQuaL 0 TNOICATES. 
er 


ooo11 =" q@oo02 + 
(00003) ) 





19 







WRITE PRINTER 


OPTION IS NOT 
USED. THE FUNCTION 





NOW 20 
Sf 
90013 = q(oo004 + 
(00003) ) 
PRINTS THE 
SATELLITE i 


IDENTIFICATION 
——),- - 
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‘SUBROUTINE 
INPUT 90019 
} RESULT 90002 





DATA REGARDLESS 
oO CODE DATA ITEM 
3S 


re 
o0007 = (90001 + 
— @0005)) 












STORED AS 
INDICATED BY THE 
qooone 


2 









10 
qg00d1 + 0005)) 
| = 00007 


' 








12 





no007 = 












13 


(99001 + moon) 
= 90007 





14 






WRITE TAPE D 
BCD MODE 
ps900 onaag 
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PAGE 7@ CONTINUED 


K VALUE = 01940 
9000101901 LOCAT OF SAT. IDENT. PACKAGE 
Q9000200294 ~ LOCAT OF SAT DATA ITEM 
@9000301905 LOCAT OF SAT. IDENT.LD +4 
voooos +10000000+02 LOCATIONS 1 TO 24) 
vonoos +1 3000000+02 ENTER WITH (2)30 IF INPUT DATA IS 
vooons +10000000+04 CARDS OR NOT EQUAL 0 IF INPUT IS 
V00009+10000000+01 TAPE, (2+1),(2+2),AND (2+3) = TO 
youd? 4 +00000000+00 OUTPUT OPTION GODES FOR CARDS,PRI 


CROSS REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 


K VALUE = 01940 
78.02 01941 1.15% 
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WASA-GSFC MISSION AND TRAJECTORY ANALYSIS OIVI 


K VALUE = 91955 


ADD TO CORRES. SUM OF 


(O-C) 5. AND TO N FOR ONE 


CBS. 


USE OBS. TYPE TO 





GET GORRES. SUM 


jf 
o90da = (90005 + 






__ (90003) )_ 





ADO TO SUM OF 
WEIGHTED (O-C) 
Sa. 


s 
9oo08 = 
FO0G8 +90 Me 










PLACE OF OLD 


: ae 
(90005 + (90003)) 
= go0na 








CORRES. N 











(S003) ) 





STORE NEW i 
(90004 + (99093)) 
= 90009 
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N 


STORE NEW SUM IN| 






USE TYPE TO GET _ 






s 
gnoo9g = (gonna + 





PAGE 


‘PAGE 88 CONTINUED 


MR VALE..8 05985 

_@9000100258 WEIGHT FOR OBS. 

esonozonae7 WEIGHTED (0-C) SQUARED 

9000401399 LOC.PRECEDING 20 LOCS. OF N"S 
@9000501919 LOC.PRECEDING 20 LOGUF. SUMS OF t-C 
voooos +00000000+00 OBS. TYPE. ALSO ADUIRLE. WE N, THE NO.OF 
yagoos +10000000+01 INCLUDED IN SUM CMBEY TYPE. Uses 





CROSS REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 


K VALUE = 01955 
reL.0s o19s6 £3.26 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE @ 
K VALUE = 91970 


HOURS-MINUTES-SECONDS TO 
RADIANS 








on007 = j0003 + | 
COONS») 











90010 = 
90015+N0006 






| 90010 = : 
— 9001000008 








goo1n =~ 
nod10+00005 








sea rg 
9001 Gs0e009 





. ‘10 


00001 + (00004)) 
{  . =00010 


11. 
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K VALUE = 01970 
@000603875 1/60 
0000903874 RADI ANS/HOUR 


CROSS REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 


K VALUE = 02970 
8.01 ' -Or97s 77.098 
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MASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PACE 6 
K VALUE = 01965 


DEGREE S-MINUTES-SECONDS 
TO RADIANS 





16 
e BEGIN 00012 ¢ 








4111-00007 





p0009 = woo03 + | 
— (09083)) 
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_ goog =) 
90009100005 










00010 = 
00010+00008 


10 









00010 = 
00010400005 
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PAGE ef CONTINUED 


KR VALUE = 01965 


anndns03675 1/60 
@0000603847 DEGREES /RAD IAN 
v0001 1 +00000000+00 


‘CROSS REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 
K VALUE © 01965 
$1.03 01986 17.100 
82 .05 01999 81.16 
01.16 01907 61.04 
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PAGE OP 


MASA~-GSFC MISSION AND TRAJECTORY ANALYSIS DivI 
K VALUE = 92000 


BEGIN 90001 


22.02 
rer az =a 
8 


VECTOR PACKAGE 


VECTOR MOVE 7 


00006 = jo0002 + 
(90003) ) 


(90001 + qo004)) 
99005 


+ (90004)) 

0007 
(ex 
230 


PAGE BOX 


x VALUE = 02000 : 


LABEL 


02001 ° 


CROSS REFERENCE LISTING 


REFERENCES 
22.080 228.05 
22.22% 22.25% 
24.03% 24.046 
25.02% 25.048 
25.16% 25.18% 
26.02e 26.03% 
26.24% 26.266 
26.26% 28.55% 
29.31% 29.35% 
35.16 35.16% 
36.42% 37.064 
37.32x 38.05% 
39.08% #$ 39.10% 
40.13% 40.20% 
42.05% 42.07% 
43.13% “A3.1T% 
44.18% 44.26% 
45.28% 45.33% 
46.33% 46.43% 
47.43% 48.03% 
49.02k 49.15% 
50.15% 30.19% 
51.20% 51.32% 
52.32% 52.37% 
53.37% 53.49% 
54.49% 55.03% 
56.03% 56.05* 
57.16% 57.20% 
58.10% 58.11% 
58.21% 59.02« 
59.15% 59.16% 
59.25% 59.26% 
60.07% GO.11% 
61.12k 61.23% 


22.07% 


23.118 
24.066 
25.09% 
25.198 


7 2s 04% 
26.298 


26.39% 
34.14% 
35.20% 
37.18% 
38.07% 
39.18% 


40.23% 


42.13% 
43.26% 
44.33% 
45.43% 
47 03% 


48.13% 


49.19% 
50.32% 
51.37% 
52.49% 
54 03% 
55.15% 
57 02x 
57.22% 
58.13% 
59.04% 
59.17% 
59.27x 
60.14% 
61.260 
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22.10 


23.17% 


24.08% 
25.10% 


26.08% 


2v .09% 
28.44% 
34.168 
35.25% 
37.20% 
38.15% 
39.21% 


40 31x 
43.32% 


44.45% 
46 03% 
AT 13% 
48.18% 
49.32% 
50 . 36% 
51.49% 
53.03% 
54.15% 
55 20x 
57.05% 
57 .25x 
58.15% 
59 .09* 
59.18% 
60 .02x 
60.21 
61.31% 


22.12% 


23.24% 
24.000 


25.11% 
25.21% 
26.14% 
2? its 
29.02% 


36.17% 
3? 24% 


39.32% 
41 .O7* 


42.28% 


43.43% 


45 03% 
46.13% 


48 .26% 


49 , 36x 
50.49% 


52.03% 
53.15% 


54.20 
55.32 
57 7% 
58.02 
58.16% 


59.10% 
59.21% 
60 03% 


60.24% 
61 33% 


22.166 | 


23 .23¢ 
24.208 
25.128 
25.236 
26.296 
20.17% 


29.218 


34.25% 
36.23% 
37 .26@ 
38 . 29m 
39.35% 
41 12m 
42 . Joe 
44 02% 


45.13% 


46.18% 
4? .26% 
48.33% 
49.49% 
51.03% 
52.15% 
53 .20* 


54.32 


55.37% 
57.10% 
58 .06« 
58 18x 
59 12 
59.22% 
€0 .05« 
CO .27% 
62 .03* 


=F 


” 


22.ae 
23.26 
24.220 
25.14% 
25.260 


26.218 


28. Ban 


35 Oe 
36.25% 


37.308 
38 .32e 


40 iis 
41,14” 
43.02% 
44.13% 


45.18% 


46 .26% 
&T .33% 
48.43% 
30.02 
51.15 
52.20% 
53.32 
54.37x 
55.39% 
57.12% 
58 .08« 
58.20% 
59.13% 
59.24% 
00.06% 
61.06% 
62 .0Se@ 


OMPA~CEFC MISSION AND TRAJECTORY ANALYSIS DIvI 
CROSS-REFERENCE LISTING 


62 .08% 
62.34% 
63.19% 
64.12% 
64.41% 
119.35* 


123..16e 


124.09 


62.10% 
62.364 
63.23+ 


64.18% 


65 .02e 


(123.17 
124.208 


62.120 
65 .O3* 
65.264 
64.20% 


119.41% 
123 .20« 
124.234 
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63.05% 


63.308 


64 23% 
67.07% 


119. 46m 
123.24” 
124.318 


62.21% 


63.08% 


64.02% 
64.258 


67 11% 


120 .02e 
224 33% 


63.100 


6427s 


Pat 


2.89% 


63.18% 


 €4.300 


64.34% 


£19 e 316 
120.26@: 183.149 
126 Ose ; 


124.075 
180.156 161.369 











NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OIVI . 
K VALUE = 92019 
VECTOR MAGNITUDE 9 
| 7 
—-Aanne = c000s + 
(5003) ; 
a 
qgo0na = | , (exer 






OA G00 7 





“9nqne = 
noande+noana 
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CROSS REFERENCE LiSTING 


PAGE BOX LABEL REFERENCES 
K VALUE = 02010 
eo. 8 = © a2011 22.00 25.02% 29.41@ 29.43e | 57.098 
119.198 124.43e 125.01e 277.140 





K VALUE = 020120 
qnon2s02196 SQUARE ROOT 
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Sani! Ec 44 
NASA-GSFC MLSSION AND TRAJECTORY ANALYSIS Divi PAGE 64 
® VALUE = Sed2e0 


VECTOR DIRECTION 8 










no005 = jon. + 
C0003) 









— go0g6 = j]oo02 + 
0003) ) | 











qno07 = (0003 + 
(00003) ) 









— He011 
SUBROUTINE 
INPUT 90005 
RESULT 90008 







n2n29 12 
rT a el ee 
’ BEGIN ON0N9 : 
« a . ant ’ ne eT 







13 


ae 
960595 sognga 
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PAGE 64 CONTINUED 


0001 + «jo0n4)) 
= 90005 





236 


CROSS REFERENCE LISTING 
PAGE BOX LABEL REFERENCES. 


K VALUE = O2020 


84.01 o2de1 22.04 23.04% 24.15% 57.04e 119.21% 119.235% 119.308. 
119.34% 124.38 124.39% 
84.12 cenes 84.07 


K VALUE = 02020 
e001 102011 
voco10+00000000+00 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


® VALUE = 02039 


VECTOR ADD 7 


28.352 





) BEGIN 00001 ¢ 








90006 = woone +- 
(GO003) ) 








5 
0000 5 = 
0005400020 
6 





noe = 
ONGN6+00021 









oq0g7 =. 
noon 7+noN22 








(HOG4 + qg0G4)) 
= GG655 





9 


(9952 + (NNN) ) 
= 99996 





(GO003 


+ 990004)) 
0057 
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PAGE 


85 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
K VALUE = 02039 
eocoz002085 
00021 02088 
e00220ene7 


CROSS REFERENCE LISTING 
PAGE BOX L ABEL REFERENCES 
K VALUE = 02030 
85.01 02031 28.32k 29.01% 29.28k 35.27% 36.26% 37.10% 
38.08« 38.17x 38.20% 38.31% 38.34% 39.20% 
39.34% 39.37% 40.22% 40.25% 41.16% 42.09% 
67.14% 123.23% 124.06« 124,26% 
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PAGE 


38 .06e 
39.23% 
67 .10% 


ea 


MASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 02040 


22 .03- 


VECTOR SUBTRACT ? 





a BEGIN 00001 4 





p0005 = (on001 + 
0003) ) 








nq006 = 
90021-00006 











90007 = . 
OOti2e2-00007 





8 
(90001, + ooona)) | 
= 5 


— UP 












aoone + (900n4)) 
= n9006 : 





| | 19 
(90003 + (jwoND4)) 
= 90097 


an) 


240 


PACE WE 


PAGE BOX LABEL 


K VALUE = 02040 


86.01 p2ne1 


“ 


K VALUE = 02040 
| aono2002085 
@n002102086 
andon2202n87 


CROSS REFERENCE LISTING 


REFERENCES 
22.03%  #22.06« 
29.37% 34.17% 
58.22% 60.08% 
61.34% 62.13 
63,14% 63.18% 
124.44% 124.35% 


241 


22.13% 
34.27 


60 09% 


62.14% 
64 .06*% 


24.11% 
35.19% 
60.15% 
62.18 
64.13% 


26.05% 


57 .O3« 


60.28% | 


62.30% 
64.28% 


26 .06« 


5ST 06" 


61 .13« 
62.37% 
64.29% 


PAGE 86 CONTINUED 


29 .O3e 
57.13% 


61 27% 
63.13 


64.33% 


vd 


“WASA-GSFC MISSION AND TRAJECTORY ANALYSIS OIVI PACE: 87 
K VALUE = 92050 


DOT PRODUCT 9 


2 
9055 = won + 
NN003) ) 
3 
0009 = 
900095200020 
4 
ono8e6 = (onde + 
(90003) ) 
5 
90008 = 
noon S620Me1 
6 


00009+00008 


good” = «9003 + 
(900593) ) 
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PAGE 80X 


LABEL REFERENCES 
1 ® VALUE = 08050 
67.01 9208s 22.08% 23.12% 
26.09% 26.10% 
26.30% 26.31% 
59.03% 59.05% 
60.31% 60.32 
62.06% 62,.20« 
63.22n 63.24% 
C4.21k 64,368 
65.04% 65.068 
119. 3@e 119.40% 
100.10@ 181.334 
K VALUE = 02050 
enoc20020es 
@0002102086 
ao0d2202087 


23.18% 
26.15% 


27.108 
0.12% 


61.09% 


62.22% 
63.26% 
64 38% 


6507s 


243 


24.21% 


27.12% 
60.18% 


61.10% 
62.27% 


63.29% 


84.39% 


65 .08% 


120.01 


24.23% 
27.146 
60.22% 
61.16% 
63.04% 


65.10% 


120.04» 


PAGE 87 COM TINUED 


25 .03¢ 
26.25% 


57.08% 
CO ..23% 


6. .24% 
63.06e 


64 42% 


65.1% 
120.18% 


26.278 


58.03% 


60.258 
63 .2ie 


64.198 


64,430. 


119.240 
124.408 


WASA~GSEC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 96 
‘K VALUE = 02060 








so009 =_ 
oo0nssano22 


244 


PAGE 88 CONTINUED 





17 


245 


WASA-GSFC MISSION AND TRAJECTORY ANALYSIS piv 7m 


SCALAR BY VECTOR PRODUCT 





i 


» 


ON007 = 


+ 


a 


(90001 + 90004)) 


mee ee! 


~ 


- 


= 99008 








PAGE 88 CONTINUED 


PAGE BOX LABEL REFERENCES 
K VALUE = 02060 

86.01 02061 28.18% 28.25e 26.35% 35.228 37.19% 37.21% 37.2% 
37.27% 37.31% 37.33% 119.26% 119.328 119.42e 120.050 
123.12e 125.18@ 123.26% | 

K VALUE = 92060 
@onn2noe0as 
qnoozenens7 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
‘CROSS-REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 
K VALUE = 02075 
99.02 o2076 22.41% 22.15% 28.20% 28.27% 28.308 26.41% 28.43% 
28.46% 28.48% 29.22% 29.26% 29.32% 29.36% 29.39% 
34.15e 34.24% 34.268 35.08k 35.17% 35.22% 35.26e 
35.33e 36.18%& 36.24c 36.29% 36.43% 37.09% 37.15% 
36.16% 39.19% 36.30% 38.33% 39.09% 39.11% 39.19% 
39.22% 8039.355% 39.36k 40.12% 40.14% 40.21% 40.24" 
40.32% 40.33% 41.08c 41.09% 41.13% 41.15% 41.29% 
42.06% 42.08% 42.10% 42.14% 42.15% 42.25% 42.29% 
42.30% 42.40% 43.03% 43 04h 43.14e 43.18% 43.19% 
43.29% 43.33% 43.34% 43.44% 44.03% 44.04% 46.14% 
44.19% 44.20% 44.29% 44.34% 44.35% 44.44% 45.04% 
45.05e@ 45.14% 45.19% 45.20k 45.29ch 45.34% 45.35% 
45.44% 46.04% 46.05% 46.14% 46.19% 46.20% 46.29% 
46.34% 46.35% 46.44% 47.04% 47.05% 47.14% 47.19% 
AT.20% 47.29% 47.34% 47.35% 47.44e 48.04% 48.05% 
48.14% 48.19% 48.20% 48.29% 48.34% 48.35% 48.44% 
49.03% 49.04% 49.16% 49.20% 49.21% 49.33K 49.37% 
49.38% 49.50% 50.03% 50.04% 50.16% 50.20% 50.21% 
50.33% 50.37% 50.38% 50.50% 51.04% 51.05% 51.16% 
51.21% 51.22% 51.33% 51.38% 51.39% 51.50% 52.04% 
52.05% 52.16k 52.2ie 52.22k 52.33% 52.38e 52.30% 
52.50% 53.04% 53.05% 53.16" 53.21%  53.22e 53.33% 
53.38% 53.39% 53.50% 54.04% 54.05% 54.16% 54.21% 
54.22% 54.33% 54,.38k 54.39% 54.50% 55.04% 55.05% 
55.16x 55.21% 55.22% 55.33% 57.14% 57.15% 60.13% 
60.17k 60.26% 60.50% 61.11% 61.15% 61.25% 61.30% 
61.32% 62.02% 62.09% 62.118 62.16% 62.28% 62.33% 
62.35% 63.02# 65.09% 63.11% 63.16% 64.04% 64.09% 
64.11% 64.17% 64.24% 64.26% 64.51% 66.22% 66.240 
67.08% 67.12% 123.13k 123.19e 123.218 124.03" 124.058 
124.08% 124.10% 124.21% 124.24% 124.32 124.348 124.578 
K VALUE = 02075 
anoneno208s 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 90 
K VALUE = 92100 


SINE-COSINE 


o2101 


SUBROUTINE 
INPUT 00017 
RESULT 00017 


{90005 + (o0008)) 
= 00017 





2124 


{Lovee 





99003 = 


q : 02106 
90003700012 — | 


21 





goo27 = 
90003400003 





andes = 
9001600027 





s BEGIN 90921 8 


23 





noo28 = 
 gooze+naa1 5 





249 


00022 = INTEGRAL | 
__PART OF 90022 








o2124 | 15 
a BEGIN 00024 r 







16 





00025 = 
+31415926+01 





250 


oooee = 
90028200027 


ne 





25 





oo028 = = 
GO028+00014 








90028 = 
opn28xo0027 





a7 





n0928 = 
00028+00013 





2a 


o0n28 = 
-gog2ax0027 








ong2e = 7 
go02a+00012 





39 


= Pan 
90028400023 





31 






ere 
00028400603 





32 


(990001 + (90004)) 
= 00003 | 





33 


PAGE 90 CONTINUED 


PAGE BOX 


K VALUE = 02100 


90.01 


90.07 
90.15 
90.34 
90.37 


K VALUE = 92109 


LABEL 


02101 


H2i121 
02124 
02126 
02105 


V0001 9410000000401 


vooo12 15707963 Ot 


v00013-64596371 90 


voong14 79689679-01 


v90015-4673 7669-02 


vo0016 15148400-03 


yv0001 a+00000000+00 


V0019+623831853+01 


35.12% 
66.35 


105 08% 
123.37 


169 .32% 
172.3% 
90.04 
90.36 
90.17 
11.14% 
36.02% 
41.22% 
71.03% 
105.11% 
123 .43% 
169 .O7% 
172 .05* 


CROSS REFERENCE LISTING 


15.37% 
36.03% 
71.12% 


105 .10% 


124 1x 


169 . 36x 
172 .07% 


90.19 
28.13% 
36.19% 
41.30% 
71.46% 
105 .17% 
124 .13% 
169.30x 
172 09% 


REFERENCES 


28.15% 
36.14% 
72.13% 
121 18% 
124 .15% 
169.46% 


472.11 


28 .22% 


38.13%" 


41 38% 
72 .05* 
122 .23% 


125 04x 


169 .48x 


172.13% 


251 


28.19% 
38 .26% 
73 .2e 
122 .25% 
125 .06% 


170 .12* 


180 .04% 


28.29% 
39 05x 
66.33% 
73.03% 
122.49% 
145.11% 


170.16 


180 10% 


26.26% 
39.29% 
73.18% 
123.01 


145.13 


170 .14% 
161 .2e% 


28 37% 
‘39.16% 
66.37% 
73.12 
123 .D4% 


162 .09% 
170.20 x 


181 .O3*% 


28 38% 
40 .07* 
‘90.40% 


123 .06* 
163 .29% 
170 47% 


29 .09% 
40 .17* 
66 .59% 
95 14x 


123 .08*" 
166 .47* 
170.22" 


29.13% 
66 Six 
95.15% 


123.10« 
169.03" 
171.36" 


35 02% 
70.18% 


105 .09% 
123.30" 
169 .05« 
171 .38*% 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVvI 


K VALUE = 92155 


ARC SINE 


n0005 = jmn0001 +. 
(90003) ) 


noo0d6 = 
-1{ 9000000451 









COMPARE 90010 
To 90005 


|LO/ER 


qq006 = 
$7 0000 NI+01 









> \ H IGH 
COMPARE OOG05 >_— 
TO 00010 


JLO/Ea 


HIGH 


252 


PAGE 91 





ale 2 


HANGED FOR Test - 
4141 TO Pt 


"216 
— ee = 
— 


13 


2176 


SUBROUTINE. 
INPUT 99005 
RESULT 9005 





PAGE 91_cOowfMUED 






q00g1 + (onog4))~ 
= 990919 : 






(oooe1 + «non 
= 99005 





16 


253 


CROSS REFERENCE LISTING 


PAGE BOX LABEL. REFERENCES 


K VALUE = 92155 


91.91 02156 15.40% 26.16% 119.25% 124.44m% 174.10« 
91.09 02163 91.04 
91.11 02164 91.06 


254 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIvI PAGE 92 
K VALUE = 92165 


ARC COSINE 





8 BEGIN 00001 e 


2 





90005 = (@ngN1 + 
(00003) ) 








00006 = 
-7190000004+04 





COMPARE 90005 — 
TO 00010 






n0006 = | 
1000900 +01 





COMPARE 906519 
To 00005 







12173 9 
’ BEGIN Ooona t 


ILOVEQ 





255 


PAGE $2 CONTINUED 









cng. + (99004)) 
= 99007 













92176 


SUBROUTINE 
INPUT 90095 
| RESULT 90005 









13 
0005 = | 
9005 4009006 







as = 
nO005+90007 









qo. + a9ena)) 
= 90005 


16 


256 


CROSS REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 
K VALUE = 02165 
92.01 02166 119.38% 120,418 123.36 174.138" 
92.09 02173 92.06 
92.14 02174 92,04 


« VALUE = 92165 
voo0007 +15707963+01 


257 


® VALUE = 92175 





4 





99005 = (O0001 | 
0063) ) 








90006 = 
00919-00005 








oo0g7 = 
001140005 








q0007 = 
99087400912 








qo007 = 





OOOO 24090005 






GOOG7 =~ 
90067400013 






90007 = 
O00 700065 





“anne? = 
GOGG7+9001 4 








Qn0g7 = 
909g 7 «00995 












00006+00007 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS BI vi 


ane ees 


90007 +90015 


15 


14 


15 


O07 -= 
0007 +0001 7 


16 


DOOOTF = 
00007400005 


17 


No007 = 
A0007+0001a 


13 









9 02196 
4 
. SUBROUTINE 
9 INPUT 90006 
i RESULT 90006 | 





19 





nono7 = 





258 


PAGE 93, 










90007 = 
noo1 a-Noda? 









24 
moon + @moona)) 
= 9o007 





22 


K VALUE = 02175 
v00010+10000000+01 
vO001 1 ~12624911-02 
vG0012+66700901 -02 
v00013-17088125-01 
v0001 4 +30891 881-01 
v00015-50174304-01 
v00016+88978987-01 


v00017-214593889+00 
¥90018+15707963+01 


CROSS REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 


K VALUE = 02175 
93.01 02176 91.13% 92.12% 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
K VALUE = 92195 


SQUARE ROOT FUNCTION 










\ HIGH 
COMPARE 90003 >—— 
TO 00005 


ILovea 


mo001 + (o0004)) 


= naa 





260 


PAGE 94 


~ 








10 





| 44 
= n9003 


02207 12 
e BEGIN 90012 a 


HI 










TO GO016 


LO/EQ 


@oo01 + (jo004)) 
"= 99009 


261 


COMPARE 00011 — 





18 


19 


PAGE 94 CONTINUED. 


PAGE BOX LABEL 
K VALUE = 02195 

94.01 02196 

94.06 02201 

94.12 g2e07 


K VALUE = 92195 
yvonoa7 19000000 951 
voo010 20000000-07 


CROSS REFERENCE LISTING 


15.18 
36.108 
66.44% 
120.38" 
122 .47* 
167 .05« 
94.03 
94.10 


REFERENCES 


15.24% 
38.25% 
71,38" 

120 . 49% 

145.154 

171 46% 


27.17% 
39.28% 
83.10% 
120.54% 
161 .22% 
172.19” 


94.18 
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28.05" 
40.08" 
93.18% 
121,168 
161 46% 
181 .12% 


28.10% 
4? .02e 


400 2268 


463.17 
181 14% 


29.168 


61.19% 
105.46 


122.328 
163.43” 


33 .26¢ 


120 .238 


122.42" 
106 .26¢ 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 02215 


FOS7 620724 
FOS7 KEPLER (REVISED) 
FOS? J.A. SMART, S.M. 
ROSENTHAL 


KEPLER FUNCTION 


LO/E@ 


N 


ia 








n2241 16 


t BEGIN 90026 a 









17 






Og017 = 
Ho009-00023 









99017 = 
90998-00017 


263 


HIG 


PACE 95 













noode1 = 
90020 700019 





28 






— ggo12 = 
00912-00021 





29 


(geo, + o0n4)) 
= 90912 





3O 


COMPARE 90021 _ 
TO dooda 


PAGE 83 CONTINUED 


19 
eed x ay 





a 





| 41 : ~00015 
00012 = o00n9 | | 








264 


K VALUE = 02215 


@0002203839 Pi 

@n002303842 2 ef! 

@0002403857 PI/s6 

(90061202105 COSINE 

@006 1402101 SINE 

vo0005 +5G000000-08 S.P. CONVERGENCE CRITERIUM 


vooo06 10000000 02 
voooo07 19000000 01 
yoooes +20000000401 


CROSS REFERENCE LISTING 


PAGE Box LABEL REFERENCES 
K VALUE = 02215 

% .01 02216 29.07% 122.2% 169.44% 171.33e- 
95.09 02243 95.18 

95.13 02228 95.21 95.35 

95.16 02241 95.06 

93,19 02244 95.10 

95 .32 02242 95.30 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
K VALUE = 02245 


Fos? 
ARC-TAN Y/X.USGS 
LOCATIONS 1 TO 29 





3 
00019 = 00017 
4 
00016 = oo002 + 
(00003) ) 
5 


N2265 14 
8 BEGIN 90020 5 





00018 = 
+19000090+01 





266 










90005 = 
n0023+00023 





a? 





0024 = 
GON 5x0001 4 







28 


| 9o024 = 
90024+00013 






ong2e4 = 
90024500005 





30 






. on024 = 
00024+00012 






31 


 none4 = 
p0024400005 


PACE 96 





02267 


46 


 og005 = . 
} 99925-90005: 


02267 







99005 = 
+15707963+01 


COMPARE 900138 
To 90017 





99005 = 
+471 23889401 


ae? ee eae 


Co ‘oe 
s BEGIN 90522 i 







12 


ooo. + q9004)) 
= 00005 


13 





NOGO5 s 
90047-90005 


COMPARE 90005 
TO OHO17 


LID/EQ 


21 









00005 = 
90005400019 
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PAGE 96 CONTINUED. 


ong24 = 
90024+00011 









33 


909024 = 
q0024.00005 


34 


ooOo24 = 
00024 +00010 


35 


qgg24 = 
9092409005 


36 









0924 = 
nog24+00009 


37 


0024 = 
900242430005 


3a 


pnou24 = 
00024+000038 





40 
aqgge4 = 
0024400007 
41 


ogg24 = 
He 4 KIA 23 


CROSS REFERENCE LISTING 
PAGE BOX LABEL REFERENCES 


K VALUE = 02245 


96.01 02246 26.11% 119.45« 120.05*% 121.22 122.36 
96.11 02267 96.09 96.21 96.45 96.46 

96.14 02265 96.05 96.07 

96.22 D2266 96.17 96 .20 


K VALUE = 92245 
VOOO006 +78539816+00 
VON 7 +99999933+00 
VOOOG8 -33329856 +00 
V50009+19946536+00 
v00010-13908533+00 
V5001 1 +9642004 4-11 
v00012-559098a6-01 
V00N13+21861229-01 
vo051 4-4054N5aq-02 
V8NG4 5 +19090095+04 
veoon1 7 +000900000+00 
VONI25 +62831853+401 
V00015 +1. 9000000+01 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 97 
® VALUE = 92276 


ANGLE REOUCTION F. ENTER 
WITH (Z) = ANGLE 


ZERO AND TWO PI 
RADIANS. USES 10 | 


LOocs e 


f : 
oq0g9 = jo0d1 +. 
(00003) ) 


INPUT ANGLE’ 2 FI 
a 7 
90009 = 
9009 700008 





w 








COMPARE 909006 — 


TO HH 






2275 1 41 
r BEGIN 09005 r] 










00010 = INTEGRAL | 


12 
PART OF 90009 


O0019 = INTEGRAL 
PART OF Soong 


269 


(FRACTION) (2 PI) 
= aEoeD ANGLE 


o00i0 = 
90010700008 





210 





PAGE97 CONTINUED 


FRACTION 


5 
90010 = 
00009-90010 


(FRACTION) (2 PI) 
= NEG. ANGLE 


J 
000190 = 
90010800008 


NEG. ANGLE + 2 PI 
= REDUCED ANGLE 


J 
00010 = 
00010-00008 


0001 + jon04)) 
= 90010 


PAGE BOX _ LABEL 
_k VALUE = 02270 

97.01 2271 

oT .41 02275 


K VALUE = 92270 
anonoen3e42 
yvonne +o000n000+00 


158 .06x 
168.26 
169 .28% 


CROSS REFERENCE LISTING 


REFERENCES 


105..05% 
158 .25% 
168 51% 
174 28% 


29.04% 105 .03* 
158 .20% 
168 .27% 
171 27% 


97.05 


2P1 


105 .O7* 
166,10 
168 .52% 
174 29% 


120 .06« 


168 .12« 


166 .33« 
171 34a 


IN RADIANS. EXIT WITH (x) = ANGLE B 
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121 .26e 122.306 
166.19m 166.286 


169.26e 169.27 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 96 
® VALUE = 02300 


MATRIX CLEAR FUNCTION 





g0007 = . 
0000 5+00006 





00007 = 
‘O07 00006 








02314 2 8 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


PAGE BOX LABEL 
K VALUE = 02306 
98.02 02301 
96.08 02314 


K VALUE = 02300 
voonos+00000900+00 
y00G12+10000000+01 


REFERENCES 


10.4% 
98.14 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS CIVI 


K VALUE = 92315 


FULL ROW MATRIX FUNCTION 








OO014 = 
410500000401 








90010 = (O06 
(04) ) 








9001 9= 
MHI 3+00012 





ae o0020 = 
HHI1 9 +00053 





90011 


90019490044 


HIWID = 
OOS +01 1 





2329 8 
o BEGIN fitifit 4d 4 









GOUG3 = 
HG1 2+5003 





274 


PAGE 99 


19 


—gooda = 
Nonna 490012 


a 






qqgna = 
q00na+n0012 





21 


HIG 





COMPARE fo09a 
“oto SNS 





qLozvEa 


PAGE $9 CONTINUED 





() Yor 


02317 





02330 | 13 


r) BEGIN 000 


15 ® 
; awd 





90013 = (90003 + 
00004) ) | 







| @o003 + (o0004)) 
_ = oo007 





275 


CROSS REF ERENCE LISTING 
PAGE BOX LABEL REFERENCES 
k VALUE = 02315 
99.01 02316 13.16% 152.188 
99.08 02329 99.21 
$9.13 02330 99.21 


K VALUE = 02315 
-y¥00012+10000000+01 
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NASA~GSFC MISSION AND TRAJECTORY ANALYSIS Divi PAGE 100 
K VALUE = 02340 


COMPUTE AND PRINT R.M.S. 
FOR EACH OBSERVATION TYPE 


N IS NOT ZERO 











GET SUM OF 1O-C) | 
SQ. FOR THIS TYPE 


S 
gooig = (90004 +. 
(0009) ) 







02354 12 


8 BEGIN 00014 a 
13 







WRITE PRINTER 
BCD MOOE 
oo000 oog06 





WRITE TAPE D 
BCD MODE 
go050 ooon6 






14 







SUBROUTINE 
INPUT 90010 
RESULT 00010 


' 1s Se fee nt 
: PRIN 
ie oe 


WRITE PRINTER 
BCD MODE 
— soogs acqg6 


92355 15 


5 BEGIN 90015 a 





277 


PAGE, 100 COMTINUED 











SET CNTR. (ALSO 
OBS. TYPE) =1 


s | 






GET N, NO. OF | 
OBS.KEPT OF THIS 
TYPE 


| ens er 
90012 = (90003 + 
(90009) ) 










WRITE TAPE © 


8 






COMPARE 90002 - 
‘TO 00005 





02358 02358 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 191 
x VALUE = 92340 


| poe cd =e — 
’ BEGIN 90019 ‘ 
— a | 






WRITE PRINTER 
BCD MODE 
DO009 OODN06 


100.21 


Vv — 
a BEGIN 90018 a 
, oval 


ADD TO CNTR., 
GETTING NEXT TYPE 


J 
YONG = 
000N9+00006 


COMPARE SOU? 
TO OOG09 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 92340 


Q90001 50042 
a9nnn200048 
@9000301899 
Q9000401919 
Q9000502196 
Q90006 02521 


PAGE BOx 


100.17 


100.22 
101 .01 


101.03 


100.01 
100.06 
100,12 


V00005 +00000000+00 
VOO006 +10000000+01 
vo00007 +200000900+02 
v0o0008+10000000+06 


02355 
02356 
02357 
92359 
02358 
02341 
02353 
02354 


‘CROSS-REFERENCE LISTING 
LABEL 


REFERENCES 


101 .06 


100.20 


100.32 
190.21 100.33 
14.12% 


166.10 


PRINTER OUTPUT OPTION 


LOC.PRECEDING 20 LOCS. OF N°S 
LOC. .PRECEDING 20 LOC.OF SUMS OF {(O-C 


(GETS AND TESTS N FOR EACH O8S.TYPE 
N IS NO.OF (0-C)S@. INCLUDED IN SUM 
TYPE.IF N IS NOT 0,GETS CORRES. SUM 
COMPUTES R.M.S.FOR TYPE.PRINTS TYPE 
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PAGE Vit 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
K VALUE = 92360 


LINEAR EQUATIONS SOLUTION 
FUNCTION 





9 BEGIN 00001 8 











|Lovee 


00025 = (00003 + 
‘(00003)) 








281 


19 









Oo0e5 =~ 
00018+00015 








00021 200015 










23 


90023 = 
90022+0001 3 





24 


o0024 = 
| 90023+00007 


25 


—geg25 = (on001 + 
0019) 





nno26 = «non + 
90024) ) 





PAGE 102 


BEGIN 00012 





—— 
§ 
— 


BEGIN 00017 





00016+00007 














2389 


” aed 
‘ 
_ 








< COMPARE 90028 — 


31 


HIGH 







TO 90027 


JLO/ER 


BEGIN no029 


Ud P 


BEGIN 90034 


LJ 


90032 = (o0001 + 
(30019) ) 
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PAGE 102 CONTINUED 


02398 | 37 
| BEGIN ‘0038 s 





co0001 + (0n019)) 
= 00033 


41 





—o00g1 + wmou24)) 
o0032 


= 
-_ 






90019 = 
00009+00019 


43 





HI 
, COMPARE 90019 
To oo0e0 


2377 










NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
K VALUE = 02360 | 








00035 = 
00032-00034 





3 


| «oo0d1 + (00019)) 
, = 00035 | 








HIGH 
COMPARE 05019 
TO 900en 












LO/EQ 
90013 = 
6 90009+00013 
o0024 = | , 


o00009+00024 











92396 | 7 


¢ ©BEGIN 90036 
: 


COMPARE 99013 
To 09011 


92377 


283 










bien nd 





PAGE 105 


Rot po 
$ _ BEGIN G0037 ; 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 104 
« VALUE = 92360 








n2600 3 
$ BEGIN 90040 Py 


104 .30——— 
o2402 


@ BEGIN 90042 . 





o0043 
00015400041 


nog44 = 
90007+00043 


0046 = oo001 +— 
90044)) | 





02407 10 
eee ll ey 
8 BEGIN 90047 8 y an 

. clay sean t = | 











: : — 
BEGIN 99053 ‘ 
: quem 


9004s = on006 





284 


02416 12 


vr cod ae —_a 
¢ BEGIN 00056 e 
a ee a ae | 
413 4 






HIGH 





COMPARE 00048 
\ To 90041 


J{LO/EQ 





15 






00050 = 
00048+00004 






16 


90050 = 
90050-900N9 


n0051 = q@moqqg1 + 
(90049) ) 





M52 = 
00046 /00051 


© ed 


mogai + (9099059)) 
= 90052 
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PAGE 104 CONTINUED 


nog49 = 
90048+0009045 


21 
22 


90051 = «0001 + 
(0049)) 






ngg50 = 
00048700004 






24 


nogso = 
0050-00009 





25 


no0g54 = 0001 +— 
C9050) ) 









00055 = 
90054200051 






27 


oo046 = 
1846-00055 


qoo48 = 
60048-00009 





CROSS REFERENCE LISTING _ 


PAGE BOX LABEL. REFERENCES 
K VALUE = 02360 
102 .01 02361 14.16% 
102.11 02370 102.06 
102.13 02372 103.12 
(102.15 02374 
102.17 02377 102.43 103.09 
102.32 02389 
102.34 02391 193.06 
102.37 2398 192.31 102.44 
103.07 02396 193.95 
103.10 02397 103.99 
104.01 02399 103.12 
104.03 02400 
194.05 o2402 194.30 
104.10 n2407 
104.12 02416 194.28 
194.20 02413 194.13 


K VALUE = 92369 
9000102751 ABSOLUTE VALUE FUNCTION 
V50008+19000000+01 
VOO009+410000000+02 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS. DIVI 
K VALUE = 02417 


SPO (STATION POSITION 
ORIENTATION) 









16 


99053 = 
99038-90045 





10.19- : 
— —Fto 9 N2105 
r) BEGIN 00001 r 5 
Reon came) em emcee . SUBROUT INE. 
3 INPUT 90044 
7 | RESULT 90054 
2 
OxNI23 = 
90039290035 18 
| 90055 = 90038 
3 
02271 19 
| SUBROUTINE 90056 = 
INPUT 90023 no49300046 
RESULT 90024 
ra) 
4a 
SOOS57 = 
non42 = 90049300045 
o0024+90034 
21 
5 
o99158 = 00048 
02271 
SUBROUT INE 
INPUT 00042 22 






RESULT M043 





99059 = 
9004390046 





6 
00044 = 23 
90043+90039 
rd 







9 227% 24 
i 7 

d SUBROUTINE . 900641 = 90047 

0 INPUT 00044 

1 | RESULT 00044 

| 25 


90062 = 90046 
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PAGE 105 





‘37 
90074.5 
90039%90053 
90075 = | 


— 90039%90054 








41 





nooo = 
90937-90040 





42 
90059 = 
95008200008 


43 


00019 = 
9009700009 


| 44 
go013 = 
00010«00019 


45 


gogi4 = 
00013+00009 








9 g2101 

9 

- | SUBROUTINE 
QO | INPUT 99031 
1 | RESULT 99047 


2105 


SUBROUTINE 
INPUT 90031 
RESULT 00048 


pws 30 


12 


MM49 = 
10038-0047 


ba ' 
w 


i i 
ol a) 


0050 = 
MIN38-90039 


14 


: 00051 = 
OOo s0a0004 7 


00052 = 
90039048 


wa 





90063 = 90045 


90065 = 
000504900 


90066 = 
0050+*00063 


SNI67 = 
O00 509064 


S468 = 
10051 *90053 


90069 = 
00051 «90054 


900TH = 
009051*90055 


90071 = 
00052290053 


N 


N 


3 


8 


3 


o-% 


90072 = 
00052*«90054 
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3 


wi 


PAGE 105 CONTINUED 





OODIG = 
00018+00017 
51 
00020 = 
00017400010 
52 
00021 = 
90032200047 
53 


0022 = 
00021+00020 


5 


& 


«gongs = 
Ga01 9400046 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 108 
« VALUE = 02417 





289 


K VALUE = 02417 


_ 9003100303 
@9003903835 
a9064003834 
@9005300316 
a9005400317 
a900s500318 
9005600319 
@9005700320 
a900se00321 
a9005900322 
asoneoc0323 
asnne100324 
a9006200325 
a9006 300326 


PAGE 106 CONTINUED 


STATION LONGITUDE (RADIANS) 

STATION LATITUDE (RADIANS) 

STATION HEIGHT (C.U.L.) 
DIST.FROM EARTH CENTER TO STATION (C 
LAMBDA SUB ZERO (RADIANS) 

T, OBSERVATION TIME IN C.U.T. 
ROTATION OF EARTH (RAD/C.U.T.) 
FLATNESS OF EARTH 

G 1 BAR 


G 2 BAR 


G 3 BAR 


G & BAR 
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99096490327 
29996590337 
89596699338 
99906790339 
99006800340 
39006990341 
99097000342 
99007 100343 
@9007 200344 
@9007300345 
@9007 409346 
a9007 590347 
39007600348 
990977909328 
39007 800329 
99907990330 
990080903341 
297108190332 
29008200333 
Qongsa3n0334 
29598490335 
991108590336 
9002009349 
9ono2100350 
QNI2201035 1 
a902300352 
49002400353 
QINI25 91354 
Q9tiG2600355 
a9092790356 


PAGE 10A 


G 1 DOT BAR 


G 3 DOT BAR 


G 4 DOT BAR 


G 5 BAR 


G 6 BAR 


G 7 BAR 


G 5 DOT BAR 


G 6 DOT BAR 


G 7 DOT BAR 


CAP R BAR, STATION POSITION VECTOR 


CAP R DOT BAR, STATION VELOCITY vECT 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 10A CONTINUED 


491199790314 

99099800315 

29998692271 ANGLE REDUCER 
29061202195 COSINE 
99961492151 SINE 
29062202196 SQUARE ROOT 
a000503842 2 PI 
v9no7 7 +10000000+01 

v90078+0000G009+00 

v9007 9+90000000+00 

v900e8o+009000000+00 

voooad +10000000+01 

Vv90082 +00000000+00 

v90083 +00000000+00 

v90084 +90000000+05 

v9nda85 +1 9000000+01 

V90020+00000000+00 G 5 DOT BAR 
yoode 4 + on000nd +05 

yv90n22 +00000000+00 

vende +00000000+05 G 6 DOT BAR 


v90025 +00000000+005 
yv9oon26 +90000005+00 G ¢ DOT BAR 
v9one27 +000000060+00 
veno2a+nnoonnna+on 
vo0o3 7+10000000+01 
vo0o3a8+o0000000+00 


VO0049 +O5000000 +55 


CROSS REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 


K VALUE = 92417 
195 01 24618 19.19% 
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NASA-GSFC MISSION ANO TRAJECTORY ANALYSIS DIVI PAGE 107 
K VALUE = 92475 


LOAD AND STORE PRINT | 
REQUEST CARDS 197.3— 





ae at 
¢ «6 BEGIN 0511 tk 
_— —! 









READ CARD 
BCD MODE 
onn12 90007 


CNTR.=O . q2434 | 7 
S cc pas 
00008 = 90005 | . BEGIN 90019 3 


NO. OF CARDS : "ts “THIS END or | 


ORED=O) DATA 





J 
90008 = 00005 



























9 
4 
‘ =a 
READ CARD COMPARE 90012 ND 
BCD MODE To 90005 
ooo12 OO007 
EQUAL 
2484 16 
f BEGIN: r 
ae 8 
0 | 92495 21 
st? er camer ed —_ 
| 17 ‘ BEGIN DoadeNn 4 
= a 4 
| | as, MAX.NO. NO.OF | 
INEQL 1 CARDS ALREADY § f 


COMPARE 99913 


BEEN STORED 
TO 809005 


STORE THE 7 Items 


| 5 
(9n001 + (o0nna)) | 
— ao 1 2 


PEQUAL 


COMPARE 9099 
Ta 90998 


FROM THE CARD 
f 


(90092 + (GGN008)) 
= 000413 
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COMPARE SUG14 — 
TO 96055 






YES. SET TO 1 FOR 


ERROR EXIT 
f 
9901G = G000T 


COMPARE 90015 — 
To 90005 






13 





SET = 0 For 
NORMAL EXIT 


| 
90010 = 90005 
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PAGE 107 CONTINUED 


(99003 + 19909) 
= oon14 


24 






25 





ao0gs + (joona)) 
= 00015 





26 
000s + jondE8)) 
= 00016 
27 





90006 + mona) 
= 00017 





28 


(90007 + (GD0Na)) 
= 00018 


CNTR ‘ +7 - 





a 
oo008 = 
n000a+o00n6 








(NO. OF CARDS — 
STORED) + (1) 


fs 
quoga = 
onde +nono07 









N24a6é 


K VALUE = 92475 


9000193100 1 ST LOC. OF STORAGE FOR CARDS 
q9nn0203191 2 ND STG. LOC, 
99000303102 3 RD STG. LOC. 
99000403103 4 TH STG. LOC. 
9000503104 5 TH ST¢. LOC. 
29000603105 6 TH STG. LOC. 
a9009703106 7 TH STG. LOC. 
ggnonenggen NO. OF CARDS STORED 
99000900495 MAX.NO. OF CARDS ALLOWED 
990019901914 ERROR EXIT 
vo0005 +99000005+00 (LOADS IN CARDS AND STORES 
y00006 +79900009+01 CONTENTS IN TABLE.) 
yonoa7 +19000090+01 
CROSS REFERENCE LISTING 
PAGE BOX LABEL REFERENCES 


K VALUE = 92475 


107.01 02476 1.19% 
107 .95 02486 107 .30 
107.07 H2494 107 04 
107.16 02484 107.019 1097.10 id7.i11 197.12 
107.21 02495 107.18 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS. DIvI 


K VALUE = 92520 


OUTPUT SCALE 
ERTER USES LOCATIONS 1 TO 
128 


i 
oo0n01 e 
tema 





90005 = 
+10000000+01 





o0006 = 





+19000000+02 


90007 = 90001 | 









o0007 = 
0007+00007 








q0008 = 
+00000000+00 

















13a 










qq007 = 
+19000006+01 






90008 =_ 
+70000000+01 









no009 = 
+500000004+00 






Ria 


gig = 
99005+00015 





24 
00625 = 
+10005000+04 


25 






COMPARE 90019 
To 00065 





LO/EQ 


HIG 


02545 33 
’ BEGIN 00020 8 






COMPARE oOGg07 ~~ 
To 6010 
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PAGE 108 





02541 42 
z BEGIN 09024 8 









oo011 = 
90912-00008 





HI 








H 


990998+00005 


o9009 = 


00009500006 





COMPARE 90011 
TO 90068 


LOvEea 


Hons = 


400000000 +00 


12 





14 






15 





OG = 
9006400006 


16 








26 
gq0i9 = 
; 5005-90014 





99025 = 
-19000000+04 







COMPARE 906515 
‘TO 05005 






29 
a BEGIN [0129 ® 









qocw2 + (IGG4)) 
= OOCGS 






32 







297 


92596 


SUBROUTINE 


INPUT 90015 
RESULT 90012 


wee OS 





COMPARE SOG12 
TO CCGG 


LO/EQ 


goni4g = 
HONtGs45013 


WAS = 
5054 44000 


- 
ry 


2543 








PAGE 108 CONTINUED. 





37 


33 


4ti 


41 


36 


HIGH 


C COMPARE 09015 


aa 


90013 = mo030 + 


masii)) 


48 
novia = 
nnd1n 790013 
4s 
g0g15 = 
n7o14 00006 
Aa? 
noor2 = 
O01 24noG0T 
, 4a 
no41s =_ 
90015400009 
49 









Ta 00018 


LID/EQ 


mGogLs = 
5015400009 





2543 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = [2525 





LG 





ooo16 = 
90007 700010 | 





02596 








SUBROUTINE 
INPUT 90016 
RESULT S012 








90014 = 
90912+00019 








gage = 
90005-90012 








oo013 = (GOG3G + 





900115) 





qnd14 = 
901 04000143 









90015” 
00614500 


Ho6 





199.93. 





19 


4 BEGIN OO076 a 








22 





2605 


| 23 
' BEGIN 99985 ‘ 












(hHISL = 
G81 sI383 






COMPARE SOGG7 — 
TS 95081 






26 





GOGR4 = 
GOS 4 NI 4 





298 


PAGE 159 










199 .25— 
n2606 35 
SSS 
¢@ «BEGIN 00a ‘ 
‘ prea stln 3 
36 





“mog76 + ang79)) 
= O0Ge4 





“2597 





COMPARE 00017 — 
TO 00015 






15 










90013 = wo029 + 
(00011) ) | 






| 11 
00014 = 


010400013 










12 





90015 = 
0001 4.00006 






13 


0012 = 
00012400007 






14 
) BEGIN 90023 8 










90015 = 
0001 5200025 










16 


cqone1 + o0nn4)) 
= 1015 








17 


(o0ge + qo0gna)) © 
= 90012 





18 


27 


COMPARE 96084 
TO 90099 


LO/E@ 


28 





on9a7 = jwo0e1 + 
(90084) ) 








29 











HIGH 
’ COMPARE OO0a5 
TO GOGs87 


{Lovea 





3 





COMPARE CiGaT 
TO 905ag 





LOZER 


32 


MOoGa4 = 
GO84+50031 





299 


HIGH 


52609 


eve 
e 
| en 


PAGE 109 CONTINUED 


33 
BEGIN 99089 8 
34 


go00a4 = 
09984~90081 


MISCELLANEOUS STATEMENTS 


PAGE BOX 


V90113+19000000+23 
v00114+100000050+24 
V901 15 +10000000+25 
V90116+19000000+26 
VOO1 17+19000000+27 
V001 18+10000000+28 
V001194+19000000+29 
V00120+10000000+36 
V00121 +1 6000000+31 
voo122+10000000+32 


V00123+10000000+33 


V00124 +1 0000000+34 


V¥060125 +190000004+35 


v00126+10000000+36 
vO0127+10000000+437 
v00128+10000000+38 


LABEL 


K VALUE = 92920 


108 .01 


108.29 
108 .33 
108 .42 
109.91 
109.14 
199.19 
199.23 
199.33 
109.355 


n2s21 8.06% 
18.29% 
137.15% 
138 .12% 
138.31% 
139.32« 
169 .12% 
02649 
92540 198.25 
02541 108.36 
02542 198.34 
2543 198.41 
02596 198 .35% 
02605 199.29 
02609 199.27 
2606 199.25 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


CROSS REFERENCE LISTING 


17.22% 
20.19% 
137.17 
138.14 
138.33% 
140.03 
160 ..14*« 


108.28 


198.49 


199 .03% 
109.31 


REFERENCES 


17.25% 
20 .22% 
137.19 
138 16% 


138 .35% 
140 .O5« 
160 24% 


108 .50 


109.34 
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18 08% 
20.25% 
137.21 


138.37 
140 .O7* 
160 .26% 


109.09 


16.16% 
20.29% 
137 23% 


138.20 


139.08 
140 09% 
180 .28% 


(100.268 


137.23" 
138.276 
139.10 


160 .08e 


160.308 


PAGE 


18.2?e 
108.14 
130 .10% 


138 .29% 


100 .10@ 


+S | 


A 


K VALUE = 02520 

9000103841 

v00017 +10000000+09 
VOG01 8+99999999+07 
vo0019+80000000+01 
vooo28+10000005+08 
von082+64000000+02 
vo0083+20000000+01 
vo0090+37000009+02 
vo0091 +40000000+01 
vo0ne2 +1 0000000+02 
voods3+10000000+03 
vO0094 +1 0000000 +14 
VO0095 +10000000+05 
VOO096 +10000000+N6 
voonoe7 +199090090+07 
voooea+19000000+08 
¥00099+10000000+09 
VO01 06+ 10000000410 
vogig1 +10000000+11 
vo0102+19000000+12 
vo0193+10000000+13 
v90104+10000000+14 
v00105+10000000+15 
v00196+100009000+16 
V90107 +490000900+17 
v0198+1000000G+18 
yoo1oe+4i90000NNgNn+19 
v00119+1900N000+e0 
voo111+19090000N+24 
von112+1009NN0No+e2 
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NASA-GSFC MISSION ANO TRAJECTORY ANALYSIS DIVI PAGE 119 
K VALUE = 92659 


ae USES LOCATIONS 1 TO 








C0006 =~ 
+10000000+02 





Q0007 = 90001 











90009 = | 
90008 NO007 





90015 = o0009 





18 









LO/EQ 


19 






99013 = 
90005-00013 






an 





00013 = (0015 + 
0013)) 





rasp | 





non12 = 
T0012 0007 





22 


gq012 = 
50012700013 


f 
— 





, 3 
‘ NAME OOO i) 













nonin = 
9ng19+0900a 





302 


. -\HIGH 
1 COMPARE 60613 ns —-— Sena 
, eng TO S6005 
4 e N2664 25 
r) BEGIN 90014 ¢ 
2 








00013 = (0015 + 
0013) ) 













27 


qon12 = 
00012630007 









28 


0012 = 
0001240013 









29 


oone1 + (woona)) 
= nqN12 





oo 


001s + (9001G)) 
= 00009 


Se, 


HI 
COMPARE. 90011 
TO 90010 


LO/ea 


g0g12 = moon + | 
(COS) ) 


16 


| 0013 = qooge - 
(0003)) 


303 





PAGE 110 CONTINUED 


PAGE BOX L. ABEL 


K VALUE = 02650 


110.01 02651 


° 110.25 


® VALUE = 02650 
@9000193841 
vooogs +00000000+00 
voooos +10000000+0141 
vO001 1 +46000000+02 


CROSS REFERENCE LISTING 


REFERENCES 


5.29% 
119.07 
122 .09% 
125.41 
141 .10% 
151 .09% 
110.18 


5.30" 
119.06" 
122.11 
125 .43% 
141.12 
151 .41% 


5.31 
119 .09% 
122.i135« 
125.45 


(141.14 


154 13% 
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5.32% 


119.1i% 


122 .25% 


149.33% 


151 ..15% 


5.33% 


119.12 


122 .17% 
141 .O4« 
149 .34« 
451 .17% 


110,12 


119,13 
125 37% 
141 .06% 


251 05% 


151 .19% 


123.23@ 
122 .07*% 


141 .06« 


252.216 


RANGE RATE FUNCTION 





DIFFERENCING IS NOT REQ. 


‘ or HERE 13 
AFTER FIRST , —!— 
7 ST Y1 
| La et TIME —/ 
5 
@ NAME COL r) 
| ; 6 
"1s Bs. ANCE 
' RATE 


~ 
eo 







COMPARE 90904 ee COMPARE 90008 se 
‘ To 90007 TO 90001 
: € | Losea 
9 








And 
a 






90010 + (90005)) 
= 90003 
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e BEGIN 00005 
See | 





416 


« VALUE = Se720 


9000100246 
asno0200258 
asnn0300392 
49000490253 
a90005 50069 
aonnn6o2098 


voooo7 +90000000+01 


vonoos+o090000900+00 


PAGE BOX 


111.01 
111.16 


CROSS REFERENCE LISTING 


LABEL 
K VALUE = 2720 


2721 
02729 
02725 


REFERENCES 
11.33% 13.11% 
111.03 _ 
111.08 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 112 


K VALUE = 92750 


ABSOLUTE VALUE FUNCTION 


141.35 


ee: ee ee a 
8 BEGIN 90001 0 
— —wl 





HI 





COMPARE O05 
TO 90008 





Low 
02756 | 
BEGIN 00006 
— 


4 
8 i) 


) Yea 
1 5 


2757 
9005 = 
99058-00005 






1) 
ro 
a BEGIN 50007 8 


(90001 + «o0004)) 
= 9000 
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K VALUE = 02750 
voooos+oq000000+00 


PAGE BOX LABEL 


k VALUE = 02750 


112.04 02756 
112.06 02757 


REFERENCES 
11.35% 34.03% 
44.09% 44.24% 
46.24% 46.39% 
48.39% 49.09% 
51.09% 51.26% 
$3.26% 53.43% 

102.28% 102.30% 
179.22% 183.14% 
112.03 

112.03 112.03 


42.20% 
44 59% 
AT 09% 
49.26% 
51.43% 
54 09x 


120.51 
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CROSS REFERENCE LISTING 


42.35% 
45 .09% 
4? .24% 
49.43% 
52.09% 
58.26% 


121 Ole 


43 .09% 
45.24% 
47.59% 
50 .09% 


52.26% 


54.43% 


158.13 


43.24% 
45.39" 
48 .09* 
50 .26% 


52 43% 
55 09% 
158.15% 


43.30% 
46.09% 
48.24% 
50.43% 


53.09” 


35.26" 


NASA-GSFC MISSION ANO TRAJECTORY ANALYSIS OIVI 
K VALUE = 92765 


ONE-WORD LOAD (PRINTS 
LOC.+ VALUE FROM COL 


1.10 
+ 
y pmeeed ae EE —, 
6 BEGIN 90001 ] 
Gemncee a OAS ee 
2 







f/ WRITE PRINTER 





7 


at 


COMPARE 0009 
TO 90006 


309 


2768 


‘ 
é BEGIN OoG08 


esate ehecrsementate —sa 


PAGE 115 


10 


PAGE 113 CONTINUED 


it 







WRITE PRINTER, 


12 









WRITE TAPE D 
BCD MODE 
NON09 00005 





43 
02654 
SUBROUTINE. 


f INPUT 999010 
RESULT 90015 






14 


(90001 + jn)» 
= 009010 
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“NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
. | CROSS-REFERENCE. LISTING 
PAGE BOX LABEL REFERENCES 


2113.61 O2761 1.10% 2.23% 3.03% 
113.04 02767 113.14 
113.19 02768 113.07 
K VALUE = 02760 
a9000100000 
a9n00202651 INPUT CONVERTER 
yonoos +10000000+01 1-17 + ALPHABETIC IDENT.FROM COLS.3 
voooos +o0000000+00 OF EACH CARD LOADED. USES 19 LOCS.) 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 124 


K VALUE = 92800 


OBSERVATION LOAD FUNCTION 


N 









READ TAPE B 
BINARY MODE 
oce1 90020 





LJ: 





| © EQUAL 





312 


PAGE 114 CONTINUED 





6000 REC. 






COMPARE 91000 
TO 91003 





a7 


——;, 
5 
aouall 






YES COUNT=COUNT+1 — 
f : 18 


0nD09 = 







COMPARE 90025 ~ 
TO 90095 





02801 





READ TAPE B 
BINARY MODE 
90009 91503 





16 





re nd ta — 
a TRY AGAIN 8 
aes m_madl 





313 


NASA-GSFC MISSION ANO TRAJECTORY ANALYSIS DIvI PAGE, 115 - 


K VALUE = 92800 


pozenr f 


124.05 
27 


) BEGIN 00007 8 
=e ares — | 
| 2 

CORRECT SAT. ID. 













| NO. | 
| Seana Ped Sree mull 
3- 
Qu 
COMPARE 00021 
TO 90095 
02814 17 
ed = _——E 
r) BEGIN 00014 r) : 
EQUAL 
48 
9 CF DATA 8 
UNPACK YR MO DY 
00013 = 19 
fIOGAT 


oc025 





COMPARE 90021 
TO 09075 





o0070 = INTEGRAL 928038 23 033512 
PART CF 90013 - : foe my 
rt) BEGIN GO008 ‘ : SUBROUTINE 
ee INPUT 900638 


RESULT 00072 





YR.D000 X 104 


J 
ooo77 = 
9007080001 7 


90013 = 
52876 20 0016-00015 






a BEGIN SO076 8 


STORE J.D. AND 
s 
90003 = an0T2 








35 
SECONDS OF 06s. 
Ss 
90004 = 90073 







i YR we OY yroooo 






00013 = 
n9025-60077 





314 


PAGE 115 CONTINUED. 










' 90074 2 
* 000130016 


9 


00071 = INTEGRAL 
PART OF 00071 









OBSERVATION 
| 90055 = Oon3s 






3 





RHO 1, RANGE 
INTERVAL 


90056 = 00023 













EQUATORIAL OR 
90005 = Q0039 













OBS. TYPE CODE 
; £ . 
90053 = onG40 








STATION. 
| s | 
_ 99030 = 90041 






4“ 






LABEL 
f 
90031 = 00042 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 216 





Tarn _ 
| 90033 = 00044 






| HEIGHT IN C.U.L. | 
90034 = 00045 











316 


CROSS REFERENCE LISTING | 


PAGE BOX LABEL | _ REFERENCES © 


214.01 02801 10.07% 114.05 114.18 


114.08 
214.08 
114.17 
215.01 
415.17 
115.20 
115.23 


02811 


* 


2010 
Ozeor 
026814 
02876 


114,03 
114,16 
124,11 


115.03 


125.19 
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114.18 


& VALUE = 02800 


escccead2n0 T«N) 

9000200245 OBSERVATION COUNTER 
a9000300378 J.D. ‘TIME OF 
9000400379 SECONDS OBS. 
e@9c03000300 STATION LABEL 

@9003100301 

@9003200302 LONG I TUDE 

@9003300303 LATITUDE. 

@9003400304 HEIGHT 

@9003500246 RANGE RATE CODE 

agn03s600258 

q9000500497 EQUATORIAL OR POLAR IDENT. 
9005300253 OBS. TYPE CODE 

9005500255 OBSERVATION 

3005600396 RHO 1,RANGE MEASUREMENT INTERVAL IN 
9009500295 SAT. ID. 

@9009700297 DREF 

@9009803351 OBS. DATE TO DAY COUNT 
9009903376 JULIAN DAYS-SEQONDS TO C.U.T. 
@91 00000000 LOC. ZERO 

29100100459 BAD RECORD IND. 

a9100200460 NO.OF READ ATTEMPTS 
9100303812 MINUS ONE (TO BACKSPACE ONE RECORD) 
@9001000061 TRANSFER POINT FOR BAD TAPE ON TB 
vo0012+60000000+02 . 
vooo15+10000000+01 ONE: 

vooo16+00000000+00 ZERO 

vo001 7 +10000000+05 1004 

v00018+10000000+03 10%e02 

vo0020+4s000000+02 NO. OF INPUT WORDS 

vono7 5 +99999999+08 ‘END SENTINEL 


318 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 117 
K VALUE = 02935 


ra 


ELEMENT LOAD (CONVERSION 





3 06 an 
1 
rr EoD ed a, 
9 BEGIN 00001 a 
_ ES meaty : 


f 1s THIS NORMAL, 
} ENTRY CINPUT CN sf 


CARDS OR TA 
Ln ee, ee 






YY HOLD OUT DATE 
5 
90041 = 00034 







MM AND TIME OF 
ELEMENTS 


f 
90042 = ita 










DD ENTS 
J 
90043 = 90033 












| HH 
90044 = 





eh ILO/EQ@ 


o2940 


80034 


MM 






5 
a 99945 = 90035 
| “HIGH sslasentiaesiontatmtan ciara 
COMPARE 90975 )-— 
TO 00019 





§ 
t BEGIN 900a2 a 
[ =—ee> a — | 
a ay 


319 





02978 


320 


PAGE 117 CONTINUED 





: 19 
| STORE INPUT ELEM. 
TYPE 


5 
90054 = 00039 








23 






WRITE PRINTER 
BCD MODE 
99031 9nn21 






K VALUE = 02935 


117.012 
£17.06 
4117.08 
117.10 
218.16 
118.26 
118.28 
119.01 
119.15 
120.32 
121.04 
121 .06 
121.09 
122.01 
122.41 
123.28 
123.40 
125.02 
125.30 
125.35 


02936 
03017 
02941 
d297a 
02942 
02945 
02946 


02944 


03020 
03016 
02964 
02949 
02947 
02952 


02953 


O2979 


03005 


02948 
03026 


3.06% 30,33» 


117.05 


117.04 


117.07 
117.05 
118.24 
118.25 


117.03 
120.25 
121 .02 
120.42 
120.42 


126.53 


123.27 
123.27 
120,40 
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121 .03 


121.30 


121 .05 


WASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE. 12 A 


K VALUE = 02955 


99000101104 A, SEMI-MAJOR AXIS IN C.U.L. 9 
a90n0201 1902 E, ECCENTRICITY ° 
@9000391103 NU, TRUE ANOMALY IN RADIANS ° 
9000401104 R Sup ! SATELLITE POSITION I 
29000501105 R SUB J VECTOR IN C.U.L. I 
9000601106 R SUB K I 
9090701107 v we! SATELLITE VELOCITY 1 
9000801108 v SUB J VECTOR IN CUL/CUT I 
9000901 109 Vv SUB K I 
a9001001110 RO, MAG. OF R BAR °o 
@9001101111 VO, MAG. OF V BAR ° 
q90n1201112 ANGLE DELTA IN RADIANS re) 
@9001301113 My MEAN ANOMALY IN RADIANS o 
90014021114 PHI, ORBITAL AZIMUTH IN RADIANS 0 
Q9001501115 SMALL OMEGA, ARG.OF PERIGEE IN RAD O 
@9001601116 1, INCLINATION IN RADIANS =?) 
Q9001701117 CAP OMEGA,LONG.OF ASC.NODE IN RAD O 
@9001801118 THETA (ELEVATION V) IN RADIANS © 
9001901119 N, MEAN MOTION IN RAD/C.U.T. re) 
asod2noodes NORMAL OR SPECIAL ENTRY IND. I 
qond2203852 MU I 
9002702651 INPUT CONVERTER F 
@9002903864 J I 
@9003003351 OBSERVED DATE TO J.D. | F 
99003103376 JULIAN DAYS, SECONDS TO C.U.T. F 
99003200295 SATELLITE ID. NO. I 
Q9003300296 YEAR OF REFERENCE (LAST 2 pIGIts) I 
@9003400297 DAYS JAN.4 - DAY OF REFERENCE I 
9003501123 PERIOO IN C.U.T. fo) 
@9003601125 HEIGHT OF APOGEE IN C.U.L. oO 
9003751122 CAP OMEGA DOT IN RADIANS / CUT re) 
9003801121 SMALL OMEGA DOT IN RADIANS/CUT oO 
99003901124 HEIGHT OF PERIGEE IN C.U.L. ° 
9004001120 CAP E, ECCENTRIC ANOMALY IN RAD oO 
aon04101190 YEAR DATE AND TIME ° 
9004201191 MONTH OF ELEMENTS ro) 
a9004301192 DAY rey 
@9004401193 HOUR ° 
aon04501194 MINUTE ° 


322 


é 


90004601195 


Q900900204 1 
@90091 62101 
qs0de202105 
99009302196 
@9009402216 
Q90095 02246 
@9009602166 
@9009702156 
@9010001 1065 
Q0002203842 
@0007 303839 
vo0o019+00000000+00 
vo0025 +00000000 +00 
yvoooe1 +190000000+01 
voooe3+19000000+04 
vonde4 +6no000000+02 
voode6 +10000000+01 


yoooe7 +90009000+00 
voud2s+00000000+00 


v00083+59000009-98 
yv0007 1+40000000+01 
y¥00072+50000000+04 


WASA-GSFC WISSION AND TRAJECTORY ANALYSIS OIVI 


(SECONDS) (1000) 


COL.69 OF TIME CARD GPERT.OPTION) 


TYPE OF INPUT ELEMENTS: 
CARD INPUT OPTION In. 
TAPE. INPUT OPTION Imm. 
ON-LINE PRINTOUT OPTION IMD. 
ABSOLUTE VALUE 

ANGLE REDUCER (0 Td 2 PI) 
VECTOR MAGNITUDE 

VECTOR DIRECTION 

DOT PRODUCT 

va +2 

v@ 

VECTOR MOVE 

SCALAR-VECTOR MULTIPLY 
CROSS PRODUCT 

VECTOR ADD 

VECTOR SUBTRACT 

SIN 

cos 

SQUARE ROOT 

KEPLER 

ARC TAN (Y/x) 

ARC Cos 

ARC SIN 

T (0), TIME OF ELEMENTS IN CUT 
2 Pl 

PI 


S. P. TOLERANCE FOR ZERO € 


323 
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Pace 13 4 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PACE 116 
® VALUE = 02935 





WRITE PRINTER 
BCD MODE 
no000 00021 


Ul 


WRITE TAPE 0 
BCD MODE 
00000 O0021 


& 


WRITE PRINTER 
BCD MODE 
oon00 o0021 





92978 | 16 
a BEGIN 90043 e 





17 


(90001 + (90004)) — 
= 90024 : 





(00001 + (00004)) 
= 00019 






18 | 
READ CARD 
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PAGE 118 CONTINUED 





90035 = 00033 


| 13 
00034 = 00032 


14 
00033 = 00031 
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WAGA-GOFC HESSION AMD TRAJECTORY AMALYSIS. OL Vi Pace 119 
x VALUE 2 02935 | 









SUBROUTINE 
INPUT 00059 
RESULT 90016 
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PAGE 119 CONTINUED 













24 
92081 






SUBROUT INE 
INPUT 90055 
RESULT 90053 


02001 


SUBROUTINE 
INPUT 00056 
RESULT 90085 


2004 


SUBROUT INE. 
INPUT 90007 
RESULT 90585 


02061 


SUBROUT TNE 
INPUT O0026 
RESULT 900185 






N2061 


SUBROUT INE 
INPUT 9004 
RESULT 90053 


M2051 






2652 
SUBROUT INE 
INPUT 90019 

RESULT 90059 


SUBROUT INE 
INPUT 00038 
RESULT 90008 


=< 
ALPHA BAR ’ 
— 


ry 













2651 


SUBROUT INE 
INPUT 90040 
RESULT 90009 









N2021 


SUBROUTINE 
INPUT 90053 
RESULT 90053 


N2246 






SUBROUT INE 
INPUT 00559 
RESULT 99517 





( ConvERT POS. AND 

{ VEL. vectors TO | 
ELEMENTS 

24 






117.93~ aan 
02944 15 SUBROUTINE vena 
St a | INPUT 90953 Scpaninine 
a gett iegh acct gaa FE INPUT 50956 


RESULT 90G85 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 42935 


é 












1 
8 02051 
7 
: SUBROUTINE 
a) INPUT 90055 
1 — RESULT 90065 






92001 
SUBROUTINE 


INPUT 90059 
RESULT 90085 





02061 


SUBROUT INE 
INPUT 99956 
RESULT 90085 















2051 


SUBROUT INE 
INPUT 99053 
RESULT 00059 





92246 













SUBROUTINE 
INPUT 00059 
RESULT 90014 






“02271 













SUBROUT I NE 
INPUT 909914 
RESULT 90514 






MUS 
5 
90059 = 

90022 *90022 










16 





92001 
SUBROUT INE 
INPUT 99004 
RESULT 99585 







1a 





SUBROUTINE 
INPUT 90007 
RESULT 90060 







19 










qon6o = 
oo06o«00060 






20 


(RG BAR DOT VO 
BAR) dk? 7A 


S 
OOo6O = 
| 90069 790001 












Eter2 


S 
SOG59 = 
ON059+00060 







02196 










SUBROUTINE 
INPUT 55059 
RESULT 90092 






328 


PAGE 120 








n2949 : n2964 


“G+E) 









f 
90065 = 
90021 +90002 





44 
(-E) 






S 
o0066 = 
gone214 -9nAaNne 





45 


qnoe? = 
9ng22490n22 


46 






none7 = 
90967 790901 





47 


gonea = 
99065 -non66 


90059 = 
N0059+00059 





, 9201 1*%90011 





12 





90059 = 
00059-00061 






13 





< 
f 
90001 = 

ONGC /0G059 







14 









90059 = 
n0061 -f0021 


(RO VO 2-1) HZ 





Soa 
00059 = 
0059x0059 















COMPARE 99083 
To 90052 





LO/EQ 


(t-E2) 
oS. 
OG6G = 
90021-50059 


2? 





—o0g6o = 
90001 0g6e5 





28 






00060 = 
90060-90010 





90061 = 
90062290015 


30 






ae 5 
oo06o = 
90066 90061 





31 
‘ NU § 
, | 


HIGH 


329 


o3az0 32 


® BEGIN 00085 $ 
33 


gage = 90020, 





34 





90093 = oNe0 





| 35 
nqg2n 








37 
90514 





3a 
02196 
SUBROUT INE 


i INPUT 90001 
RESULT 90969 








39 


 ongeg = 
0065390001 


90019 = 
95522 700060 





. PAGE 120 CONTINUED 


oS 48 


wed 
| 


non6a = 
HON67 0006 _ 


a9 
52196 











SUBROUT INE 
INPUT So06a 
RESULT 0o06a 






50 


00069 = 
90791 1-NoN6a 


2751 


SUBROUT I NE 
INPUT OOOG69 
‘RESULT OOO69 





52 
no06a = 
no666 90065 
53 
ong6a = 
n9067.40006a 


54 


42196 











SUBROUT INE 
INPUT 990962 
RESULT 05062 






55 


nonea = 
90011-00068 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIvI 





02949 


K VALUE = 92935 


90003. 








= 00073 


330 













90064 = 
90nn2+00060 


ii 









0062 = 
gogeoxsann2 


12 


— ggn62 = 
900214 +09062 


13 
page . 






I 
90061 = 
50061 /o0062 


14 
“90063 = 
gnnn2xencc2 


15 


n0063 = 
09021-90063 


PAGE 121 


24 






oor 
rer 
90013 = 


90040-00061 





o2271 


SUBROUTINE 
INPUT 90015 
RESULT 90015 





27 


| 99912 = 90014 


28 
02196 









SUBROUT INE 
INPUT 90004 
RESULT 00060 





29 









f 
90919 = 
90922 700060 









16 





SUBROUTINE 
INPUT G0063 
RESULT 00063 






on063 = 
00064 .O5063 


SINE 
FS 
90060 = 
90063 /den62 









n2246 | 


SUBROUT INE 
INPUT 99060 
RESULT 90549 















90061 = | 
90002200060 
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PAGE 121 CONTINUED 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 92935 


/ 





BCD MODE 
O00 KI21 


MODE. 
m2 1 


MODE 
YVI2I 


WRITE PRINTER 
BCD MODE 
00030 90021 






2651 









SUBROUTINE 
INPUT 95930 
RESULT 95001 

















17 





RESULT 90017 





90063 = 90013 





2216 
SUBROUTINE 


INPUT 50063 
RESULT 909040 


M2105 


SUBROUTINE 
INPUT 90045 
RESULT OO65 





332 


PAGE 122 


” 






34 


ngn052 = 
00052 700050 





35 
rer — aad —| 
] NU a 


N2246 


Hw 


SUBROUT INE 
INPUT 00052 
RESULT 90003 


te he 





PHI 


J 
90014 = 
90003 +9015 





M2271 


“Nw 


SUBROUTINE 
INPUT 90014 
RESULT 90914 


es je 





39 
90012 = 90014 


4a 
905916 = 
+9000009000+0n 


126.95 
2952 41 
eek a—— ny 
a BEGIN 99017 ° 


02651. 
SUBROUTINE 


INPUT 99932 
RESULT 99002 





SUBROUTINE 
INPUT 90034 
RESULT 95016 








n2651 
SUBROUTINE. 

INPUT 00036 
| RESULT 99013 





14 
z , Li OMEGA s 






SUBROUTINE 
INPUT 99038 
RESULT 90015 


16 
a a 
=ad 


02101 


SUBROUTINE . 
INPUT 90540 
RESULT 90066 


25 










26 









9og50 =_ 
ga0n2sG0965 


(i-e a 


OOCiso = 
node1 ~-00055 





238 











O51 = 
900965 -90002 





“90046 = 
_— 9ngG2x90002 





32 


92196 







SUBROUTINE 
“INPUT 99046 
RESULT 95046 


33 


90052 = 
G0546s00066 
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PAGE 122 CONTINUED 


| 42 
92196 | 











SUBROUTINE 
INPUT 90001 
RESULT 99945 


90045 = 


a4 









N 
f 
90019 = 
W022 /OOI4S 


45 
0045 = 
9000290002 
| 46 
. 004s = 
Oog21 -00045 


4? 






g2196)— 






SUBROUTINE 
INPUT 90045 
| RESULT 90046 





| 4a 
SMALL GO 
f 
nogi5 = 
90001 <G0046 


49 
92105 | 










SUBROUTINE 
INPUT 969517 
RESULT 0047 | 


NASA-GSFC MISSION ANO TRAJECTORY ANALYSIS DIVI 


K VALUE = 92935 


/ 





a - 
SUBROUT INE. 


INPUT 90017 
RESULT 90048 












n0049 = 90019 


SUBROUT INE 
INPUT 90016 
RESULT 00050 









SUBROUT INE. 
INPUT 90016 
RESULT 90051 





2105 


SUBROUTINE 
INPUT 90912 





9 
e SIN DELTA ‘ 


i7 
92001 
SUBROUT INE 


{| tNput 90047 
RESULT 90085 









18 
92061 | 









SUBROUT INE 
INPUT 99054 
| RESULT 900385, 





19 
n2076 tt 
SUBROUTINE 
INPUT 00053 
RESULT 99965 






92001 


SUBROUTINE 
INPUT 00047 
RESULT 90085 






21 
2076 









‘SUBROUTINE 
INPUT 90052 
RESULT 90085 






22 
a BETA BAR 4 
a. = pee 8 






52031 





SUBROUTINE 
INPUT 99965 
RESULT 00057 





334 





PAGE 1235 


SMALL OMEGA 


f 
90015 = 
90014-90003 





2105 
SUBROUTINE 

INPUT 90003 
RESULT 0067 














31 





qo006a = 
no067+90002 





| 32 
0067 = 
0006790002 
| : 33 
o0n67 = 
99021 +00067 
34 


o0n67 = 
no06a /con67 


35 
oS eae Oe 
¢ CAP E£ ® 






02166 





SUBROUTINE 
| INPUT 099067 
| RESULT 90040 








| 11 
2001 
SUBROUTINE 


INPUT 00019 
RESULT 90085 













1 12 
o2061 | 
SUBROUTINE. 


INPUT 99047 
RESULT 90085 


ao. 










0 
1 = 





| 13 
o2076 
SUBROUTINE 


INPUT 900951 
RESULT 90085 







14 





qnda4 = 
+0050 





15 
6 ALPHA BAR s 











COMPARE. 00016 
To 99020 


LOE 


335 






27 


HIGH 


arate: 


om 
‘ BEGIN 00044 





02101 
SUBROUTINE 


INPUT 90040 
RESULT 90067 


37 






38 





‘90067 = 
90002200067 








02979 


LJ 









— 99015-90012 







42 


LJ 


8 cos W(1) 


43 





92195 


SUBROUT INE 
INPUT 55065 
RESULT S066 






i 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIvI 


K VALUE = 92935 


’ 





2076 
SUBROUTINE 


INPUT 90066 
RESULT 90067 | 









92004 
SUBROUT INE. 
INPUT 90060 

RESULT 90085 






02076 






SUBROUTINE. 
| INPUT 99065 
RESULT 90085 





02034 

SUBROUTINE 

INPUT 90967 
RESULT 99075 






92001 












SUBROUTINE 
INPUT 00057 
(RESULT 99985 















17 









E COS E 
J 


00050 = 
O0NG64 x02 





(1-E COS E) 


Ss 
00950 = 
90021-00055 





19 
499054 = 
: 90001400054 


20 





52051 


SUBROUTINE 
INPUT 99075 
RESULT 90085 







21 







g2076 
SUBROUTINE 


} INPUT 99051 
RESULT 90054 






336 


PAGE 124 


ma 
00052 00050 


31 


02001 





SUBROUT I NE 
INPUT 00075 
RESULT 90085 





32 
02076 
SUBROUTINE 


| INPUT o0052 © 
| RESULT 90065 








 opon4 
SUBROUT INE 
INPUT 00078 
| RESULT 90085 






34 
02076 | 
SUBROUTINE 


INPUT 90051 
RESULT 90085 













| 35 
Nena 





SUBROUTINE 
INPUT 90065 
RESULT 99085 






ry 





INPUT 90040 
RESULT 00064 












B SIN-E 





f 
naqn066 = 
001 5409963 


o2001 
| SUBROUTINE 

INPUT 90078 
RESULT 95585 






2076 


SUBROUTINE 
INPUT 59066 
RESULT 90085 





SUBROUT INE 
INPUT 50051 
RESULT 90004 


B cos E. 


5 
O51 = 
7064400015 


GG051 = 
00051 00055 


PAGE 124 CONTINUED 


37 
o2076 







" SUBROUTINE 
INPUT 90019 
RESULT 99007 


33 
n2n21 





»® 






. | SUBROUTINE 
oO | INPUT 99004 
1 | RESULT on050. 
39 
ae 02021 
A 







SUBROUTINE 
INPUT 90007 
RESULT 90085 


= Che 


4G 
02051 
SUBROUTINE 


INPUT 090050 
RESULT 90055 











- At 
92156 ts 
SUBROUTINE 
INPUT 09053 
RESULT 00053 


rw 









we 6 


a2 
ETA 
99918 = 
90020-00053 
43 


92014 











14 SUBROUTINE © 
a SIN E 8 f. RESULT 900109 


99061 40663 
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K VALUE = 02935 






INPUT 90016 
RESULT 90065 












SUBROUTINE 
INPUT 90016 
REsuLT 90066 | 






ei 





s 
90035 = 
g0n22 90019 







19 







90050 = 
90071-00050 






- 90050 = : 
80050400073 


21 


90050 =— 
9029200050 





SMALL OMEGA DOT 


| 09050 00067 












23 


90050 = 
_—-pona1 -90502 


24 





0050 =~ 
99001300050 





| es 
HGT OF PERIGEE | 
— 90039 = 

90050-00021 





26 


n0559 = 
onne1+90052 


e7 


0050 = 
99901 419050 
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PAGE 125 





WRITE PRINTER 
BCD MODE 
angen oo0e1 












WRITE 
BCD 
109930 






WRITE PRINTER 
BCD MODE 
- G0030 onde. 






03926 


LJ 


Voom rae 
* BEGIN 90991 


LJs 








19 





90051 = 
90021 -00051 





= 







- SMALL P 
5 





0067 = 
00051 «90001 7 








| 16 
CAP OMEGA DOT 


f 
90037 = 
90019-00050 








 gooso = 
ONN6E C066 





18 





90050 = 
O0072HI0056 — 








339 


PAGE 125 CONTINUED 






ages 





SUBROUTINE 
INPUT 90030 
RESULT S005: 






2651 
SUBROUTINE 


| INPUT 00034 
RESULT 90016 












02651 






SUBROUTINE 
INPUT 50036 
RESULT 95003 








44 





02651 


SUBROUTINE 
INPUT 99038 
RESULT 99514 







\NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 126 
K VALUE = 92935 





340 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 93959 


BACKWARD DIFFERENCE. 
INTERPOLATION FUNCTION 








90015 = 
~109000000+01 





| 3 

00019 = 
00003+00012 

03055 4 


’ BEGIN 09005 a 
ee ee 


00015 = 


00015 +0001 1 





S 
00019 = 
n0019-p0012 
7? 





(00035 + «90015)) 


me TIT - 





HI . ON 
, COMPARE 99914 
TO 99015 





HI 


HIG 








(90035 + ©o017)) 
= 90023 ‘ 






23 


COMPARE 0014 
TO 90017 







frovea 


24 






COMPARE 99033 
To 50018 





LO/ER 


25 


“9on26 = 
qond24-n0n25 


341 





PAGE 127 





37 





——— 
ond2e 700029 


o0031 = 
gon3oxod23 





39 







noose = 
00032+00031 





HI 
—<K COMPARE 90014 
TO 00016 


LO/EQ 


41 









nn032 = 
no032+00035 





0001 4+00018 


03056 
4 BEGIN 90006 





90018 = 
non18+00011 





14 
90018 





90017 = 


15. 





00021 = (0035 + 
(0100017) ) 





03057 Ae 


® BEGIN 90007 ' 







i? 





90017 = | 
n0017+00011 3 






18 





—ggn22 = m0035 + 
(09017)) 





342 














0016 = 00010 





90032 = 


93058 | - 31 


7) BEGIN 00008 e 
, , amen 


: 7 
oo Fe 













32 





OOG16 = 
99016+00011 . 









G29 = 
90029450016 









34 


0027 =_ 
906927 +90013 









35 


pSoron a 
OMI28x0027 





OF NU ED 


‘CROSS REFERENCE LISTING 
PAGE BOX LABEL REFERENCES 


K VALUE = 03050 


127.04 03051 131.26e 131.284 131.30n 131.32 131.340 131.360 
127.04 03055 127.09 
127.32 03056 =: 127.24 
127,16 03057 127.23 
127.31 03058 8 = 127.40 


K VALUE = 03050 
vo0010+90000000+00 
v0001 1 +10000000+01 
vo0o1 2+10000000+n2 
v00014+50000000+01 
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NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OIVI PAGE 128 
K VALUE = 03300 


‘OAY COUNT FUNCTION ‘USES 
LOCATIONS 1 TO 335 





ADD 1 TO THE DAYS 
LOCATOR 
oo028 = 

— 90028+00010 


LOCATIONS 


J 
00025 = (00003 + 
-00003)) 





03330 of Ea 


8 BEGIN 00030 4 





344 










— etiam 93331 18 
STORE DAY COUNT eS a 
5 8 BEGIN 90031 ‘ 
onn27 = moot + Se | 
SET LEAP YEAR I=0 
oon26 = 

+60000006+02 
53332—isd| CS 20 
8 BEGIN 90032 r 


COMPARE YEAR WITH * 
22 





LOW . “NOHIGH 
COMPARE 90023 


To so026 








“ADD INPUT DAY TO 
DAY COUNTER 
f 
oon27 = 
gone25+00027 













93329 
§ I 
¢ 23 
YEAR EQUALS 60+41 
I 
OOeT = 
(90927+00019 
COMPARE 50024 > 
To od008 
3329 


345 


PAGE 128 CONTINUED | 


YEAR 1S GREATER THAN 41+1 






13333 24 
6 BEGIN 00033 r 
‘ 7 __ 
SET LEAP -YEAR 
I=I+i 
mane 
Oou2e6 = 
9O0G26+00009 


K VALUE = 03300 


voo00s +20000000+01 
vO0009+40000000+01 
vo0010+10000000+01 
yono12+31000000+02 
v0013+59000000+02 
vono1 4+90000000+02 
V00015 +12000000+03 
v00016+15100000+03 
yoo017+18100000+03 
v00018+21 200000403 
v00019+24300000+03 
y¥00020+27300000+03 
vonn2 1 +30400000+03 
yo0022+33400000+03 


ENTER WITH (2) =YEAR, (Z+1) =<MONTH, ¢ 
DAY. EXIT WITH (X)=NUMBER OF DAYS 
JAN.2 OF THE GIVEN YEAR THROUGH T 


GIVEN DATE. 
DAYS UP 
DAYS UP 
DAYS UP 
DAYS UP 
DAYS UP 
DAYS UP 
DAYS UP 
DAYS UP 
DAYS UP 
DAYS UP 


$555 55555 GS 
9922329 A9RR 


DAYS UP 


CROSS REFERENCE LISTING 


PAGE BOX 


® VALUE = 03300 


128.01 
128.07 
128.14- 
126.18 
128.20 
128.24 
128.26 


03301 
03330 
03305 
03331 
03332 
03333 
03329 


LABEL 


REF ERENCES 


1.16% 129.12" 


128.16 
128.15 


128.25 


128.22 


128.22 128.23 


346 


TO FEB. 1 
TO MAR. 1 
TO APR. 1 
TO MAY 1 
TO JUNE 1 
TO JULY 1 
AUG. 1 
TO SEPT. 1 
TO OCT. 1 
TO NOV. 1 
To DEC. 1 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIvI 


K VALUE = 93799 





142.13 
03740 a 
) BEGIN 040 a 
ae ee eee 








HI 
COMPARE 00035 
TO OO%17 






LOZE.Q 






3.701 





O3T44a | 5 


8 BEGIN 9O044 a 





6 
4 O3751 
4 | SUBROUTINE 
6 | INPUT 96038 
1 | RESULT 99031 









COMPARE 90034 
TO GG007 
EQUAL 
3 
73746 9 









- 
Noi39 = 
O00533+0554 5 





379 


A 


PAGE’ 143 


M3741 | 13 
Cer ee ey 


BEGIN O41 


t 


- 


O 


a. 


= 


14 = 90049 


ae call 


19 


PAGE 143 CON TINUED 


Uri 2+ 


11 









J 
00039 = 





21 90939+00014 
THIS PROCESS BOx | | 
REPRESENTS 
MACHINE. CODE. 12 
INSTRUCTIONS. 





CHANtC CH 


J 
H5036 = (G0016 + 
(00932)) 


LOAD ADDRESS IS 
99950 





13 
Ut128+M+CH 


J 
90039 = 
00039+00036 












14 






GOG39 =~ 
90039+00037 





15 






90035 = 
90031+00013 





16 






90035 = 
O93 54+00616 









17 


(90900 + (90035)). 
= O39 





03743 


380 


K VALUE = 93799 
a9050000000 
9000193751 
20093793841 
VOo005 +10000000+01 
vG0006 +20000000+01 
vooo07 +000690000+00 
V00008 +60000005+02 
VOo00NS+990N0000+041 
v00010+16000000+02 
V0001 § +12800000+03 
V00016 +300954000+05 
V06501 7 +5 12000069+03 
V0001 8+1924Nn000+N4 
V50019+15360000+04 


381 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI - 


K VALUE = 93759 


143.96 
1 
St =. ee 
© BEGINDOO1 64 
| 
2 


ON016 = (0001 + 
(00083) ) 


Ol 





9010 =~ 
0916-90006 





50015 = 
400000000400 








MOLL = 





O81 /N0005 


sd) 


00012 = INTEGRAL 


FART CF OOO1L4 





OWH11 = 
G41 25055 


1% 


Gani = 
SH915-90091 


G ©) 


382 





it 
99016 + (990125)) 
= joni 
12 


LO/EQ 


14 
eon, + o0004)) 
2 


= Oot 





qqo0g2 + 0004)) © 
= 00019 





16 


(90003 + (og0N4)) 
= 90018 


17 


(00004 + (90004)) 
= OOO17 


PAGE 144 





K VALUE = 93759 
VOOON5 + 1 OGGG900 +03 
VOOOS6 +-6960905+58 
VO6007 +1 000N9000+61 


VEOONS + 300000 eit 


CROSS REFERENCE LISTING 


PAGE BOX LASEL REFERENCES 
K VALUE = 93755 


144.91 3751 143.06 
144,55 3763 144.13 


383 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 938990 


CONSTANTS POOL FUNCTION 
FOR DIFF. CORRECTION 


o3en1 






moe = 70044 





COMPARE $9014 
TO 99065 









YES 
5 
99088 = | 
00041+00041 











26e53 


 &§ 
oogas = 
00088+00041 







7 
§ BEGIN 90018 § 





15 
02196 
SUBROUTINE 


INPUT 90089 
RESULT 90052 












-2 PI | 


S 
00087 . = 
O01 2300042 





17 








COMPUTE. PI 
5 
00039 = 
99042 790005 






18 


COMPUTE P1172 | 


ee 
90038 = 
00042 00006 













90057 = 
+12e000000+2 





aa 
PIs 6 | 
5 
NO057 = 






90042 /G0057 


24 
COMPUTE 3 PI72. 


5 
no065 = 
00010+00038 






384 


19 


PAGE 145 


(CUT. /SEC.) 
f 









COMPUTE. RAD/DEG 


J 
OON68 = 
99011 00047 






ROTATION CF EARTH 
IN RADs C.U.T. 


SJ 
00035 = 
00048490043 





32 


COMPUTE FLATNESS 
COEFFICIENT 












s 
OON34 = 
NO01 1 000565 








| 33 
Fk? (F=FLATNESS 
OF EARTH) 
f 
00085 = 





00034400034 


| 34 
2r | 
fs 
oo0as = 

__ 90005400034 







ere Sy aT 
(E=ECCENTRICI TY 
OF EARTH) 


i 
. 00086 = 
on0se-n0085 











MOTION OF TAU IN 
RAD./ C.U.T. 






oo0sG = 
90090000043 





C, VELOCITY OF 
LIGHT IN 
C.U.L. Z SECOND 






COMPUTE C.U.T. 
GAY 













, = 
= 





23 


COMPUTE C.U.T. 
HOUR 










a 00073 43 


24 
COMPUTE MIZC.U.L. | 


00036 = 





(KM/C.U.L.) | 
(C-U.T. HR») 


00067 = 
pon46400072 















(MI/C.U.L.) 
«Cc eU. T SHR.) 





90045 = 
00067 /00063 





C.U.T. 
00070 = 
9004300009 















385 


| ASTRONOM ICAL UNIT 


PAGE 148 CONTINUED 









RAO/HR 
f 


00074 = 
90076 7000 






4? 


39 








HR/MIN 
ae 






O0075 = 
0001 1 00009 


he ao 
CU. 2 





o0082 = 
00078 00046 





41 





(MASS OF 
.MOON) / (MASS OF 
EARTH) 


f 
00083 = 
90011 /do080 











Sf 
90084 = 
00046+000a1 





NASA-GSFC MISSION AND 
K VALUE = 935800 


90049400549 


JORR IKE 
S 
0024 = 
N0620300053 


EB Bk JQ AHR? 
J 
W064 = 
ODOT xO0024 





( IS PE ORBIT 
| GENERATOR BEING J 


icc, ged. 9 






COMPARE 90067 
TO CHILI 





EQUAL 


6 
 K2s0 
ee 
40030 = 
+n6009000+00 
2 


| “35H 
ae! 
OOO31 = 
+900 50000 +00 





TRAJECTORY ANALYSIS DIVI 


93319 


16 
UNE GI 
COMPARE 90067 
TO 90019 
eo ee oer 
033817 
. 17 
ocd K2 
0024 = 
00053400020 


K2= (J2#RAKZ) £2 
Sf 


M030 = 
omMied /O00G5 





COMPUTE K3 
3 


SOG20 KIGOHag 





SB xR ok4 
£ 





386 


PAGE 146 


23 





H —_ t} 
f 
noo29 = 
+00000000 +00 







K=6 


S 
ooOn2a = 
+00000000+00 






L=0 












f 
oOo27 = 
+00000000 +05 





31 









5 
oan29 = 
400000000 +00 





tt 


K=0 
Ni 
MVIZGa = 
+0000 +00 





L=0 


J 
MMI2T = 
+000000004+00 





13 


387 


PAGE 146 CONTINUED 


: 21 


K3=- (J34#R4ex3) 
§ 

















00031 = 
000124900024 


| 22 
COMPUTE K4 


5 
_ 00022 = 
00021 #00049 










a 2 25 
JRA 
ponte = 

90055400022 
KA= (J4doRA) /~ 


2 . 6866667 


J 
(KKIZ2 = 
TIN24 490013 






| 25 
COMPUTE K5 


MmG2S = 
GHON22sLIG4 9 






26 
J SaieekS 


S 
{iN24 = 
MOG 56300023 


K5=- (J 5&kRAek5) 


Sf 
OHaG33 = 
G51 2x24 





NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 147 
® VALUE = 03890 


é 


THIS IS HST ORBIT 
GENERA TOR 





16 


1S 


| 2 / 
i ATOR BEING 
i 


a BEGIN 90016 @ 
j Ce ee ee wee 


COMPUTE. K2 











| COMPUTE KS 
no024 = 
o0s4s00021 





K3S I3eReE3 2° 
S 
90031 = 
90024 700005 






K420 








f 
on032 = 
+00000000+00 









22 





ea 
— Gnde1 450049 





K5=0 
f 
n0033 = 
o90000+090 





388 





H=5 22h SJB 
Js 





O29 = 
90008400024. 


tt 
COMPUTE K 


J 
D00e4 = 
000144090055 









13 


” RE-45 74a A 


J 
moo238 = 
nnnzex00024 






14 





i= 


i 
— o002? = 
+90000000+00 






15 


PAGE 147 CONTINUED 


? 





1 24 
jhe 2 
J 
o0024 = 
a00244000 









12 





25 
RAs 14eteees 1B 


00032 = 
00024 /0001 5 






K5=0 


sf 
00033 = 





389 


NASA-GSFO MISSION AND TRAJECTORY ANALYSIS O!vI 


K 


K VALUE = 


QS 7 GOG99 


Q9GO0202196 
aQ9NHo352101 


Q90iig02105 


yooogs +20000000+01 


vogoG7 +15009000+01 


SVN +25 WII +4 


VOUGDGY -€ FIGGI5G +42 


ee ee Fe 


VG 2-1 GOUGING +4 


yd Scare ea) “2666666 4 +4 


a 


Pees ROI + 


380 


ORBIT GENERATOR INDICATOR 


H=SP (88) =2%**26, 
SQUARE ROOT 
SIN 


GDS 


3/2 
5/2 
MIN/HR 


CROSS REFERENCE LISTING 


PAGE BOX 


K VALUE = 53850 


145 1 
145.97 
146.14 
147.91 


147.16 


LABEL 


S3ea01 
3818 
3819 
3817 
3816 


REFERENCES 


1.12% 
145.04 
146.05 
146.16 
147.3 


390 


1=DP (88) =2%%x53 


PAGE 


15 


A 


K VALUE = 93825 


a 


VO00G1 +50000990 +05 
V09016 +67 198864+98 
Viv 7+62831853+01 
¥O00192499090900-01 
VOON21 +63 78388+n4 
VONI22 +57 295 (80+02 
vivin23 +72921159-Ci4 
VO0924+1900G000+01 
VOIONZ5 +2970ONIG+03 
VOUG26 +1 0000005+04 
VOO064 +4 9000900404 
v90028+15821990-02 
yO0029~-22a5 5000-05 
VOON39-21 230900-05 
v5003 1 -23200000-06 
V00033+36950000+01 
VIVI34 +31355835-'74 
VCO 35 +2666666 7 =I 
POVIFE +E2714 769-92 
VOOIZ 7 6405099455 
VOONI38 +169934 77 4 
VG0044+10009NI0 +44 
VOOOAG + 1 FGI A541 
VONN4A+ S6UGGIG 4 
V9G05 1415009900492 
von052+45900000-94 
¥999534+14947395+99 
V¥N905 4 +3334 3290 Ne 
VO0955 +8145 99974592 
V990056 +199999959 +96 
VO0065 +199156338-06 
vVO0066 +49915752+00 
VON06 7 +29979259+06 
V90068+19000000+041 
V599069+90000900 +00 
V9007 9+00000000+00 


VOU? 4 +HO000000 +00 


THESE CONTENTS ARE STORED IN THIS AREA FOR USE BY OTHER PORTIONS OF THE PROGRAM. 


T1, TOL. FOR MAG.OF (R X UD IN SUN D 
TOL. (OR (NIT R) DOT (U) IN SUN DET 
2REZG 

2p! 

SECONDS / C.U.T. (C.U.T. 


tf 


CRITICAL INCL. FOR BROUWER 
KILOMETERS/C.U.L. (C.U.L. 


DEGREES/RADIAN 
ROTATION OF EARTH IN RAD/SEC 
RADIUS OF EARTH IN C.U.L. 


MU4%x2=GM 
J2 
33 
J4 
J5 


SMALL H SUB 4% 
(4/3) (SETA) 
(4/3) (H SUS 9) 
SEC /DAY 
KM/MI 
M/KM 
1+N SU5 5 
SEC/HR 
DEG /HR 
SUNLIGHT PRESSURE IN DYNES / CMiex2 
KM/ASTRONOMICAL UNIT 
(MASS OF SUN) ZOMASS OF FARTH) 
(MASS OF EARTH) 7 (MASS OF DON) 
CM/KM 
MOTION OF TAU IN RAO. SECOND 
23 DFG. 26 MIN. 34.795 SEC. 
C, VOUDCITY OF LIGHT IN KM. 4 SECOND 
X COMPONENT OF U1 VECTOR SOR SUN DET 
Y COMPONENT OF Ut VECTOR FOR SUN DET 
Z COMPONENT OF U1 VECTOR TOR SUN DET 


Xx COMPONENT OF U2 VECTOR FOR SUN DET 


CROSS REFERENCE LISTING 


PAGE BOX L ABEL REFERENCES 
K VALUE = 93825 
149.G1 03901 2 iS 
149 7 03911 156.95 
149.17 939096 149.9 
149.21 3908 149.48 


at 


391 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS Divi 
K VALUE = 03900 





8. BEGIN 00001 9 


DRAG TABLE 
STARTING IN X. 
ALSO STORES 


5 : 
90003 = (00001 +. 
c00003) ) 


DATES + TIMES OF 
DRAGS STARTING IN 
Loc .60 


f | 
on014 = «oode + 
©0003) ) 









READ CARD 
BCD MODE 
an019 90012 






392 


PAGE 149 





2? 


t  oooes = 
| oo025 /n0009 


90059 = 
00059+00025 


— 
ke , 





qmoode1 + (jo04e)) 
59 





“90043 = 
+200790000+01 


31 









9qna2 = 
00043+00042 


32 





90034 = 
90034+90912 


| 33 
92651 










SUBROUTINE 
] INPUT onn26 
}] RESULT 90026 








19 





00043 = 
+10000000+03 





1 





00059 =_ 
ood2nsa0043 





12 





00059 = 
o0059+00021 





13 





90059 = 
NO059x00043 





44 








90059 =~ 
nons9+n00z2 





16 





90059 =~ 
90023300043 





< COMPARE 90019 — 
2 TO 00007 





393 


939653 





-10000+04 












BEGIN 9o0ga 


WRITE PRINTER 
BCD MODE 
90019 9o01 





90001 = 












23 





PAGE 14 CONTINUED 


02651 
SUBROUTINE 


; INPUT ond2a 
RESULT 90028 












36 





oone4 = | 
0024 +00023 






37 


oog24 = 
10024410013 





38 


90025 = 
non2s+do024 





41 





osmtie = 


93351, 








SUBROUTINE 
INPUT 09914 
| RESULT 50030 






43 





90031 = 0025 





se PAGE 155 
NASA-GSFC MISSION ANDO TRAJECTORY ANALYSIS DIVI 
K VALUE = 93999 


mee 





SUBROUTINE 
INPUT 59036 
RESULT 90032 








+ (OG00A)) 
= 00032 







+ (90004)) 
MON26 








+ (90004)) 


(90041 
= 90928 





Oona = 
00004 400912 





43911 


394 


K VALUE = 93999 


aonng100GNS _ ERROR INDICATOR 

900920265 14 INPUT CONVERTER F.. 

290599303351 OBS. DATE TO J.D. F. 

99900403376 JULIAN DAYS-SECONDS TO C.U.T. 
agnn3s4ono02 NO. OF T(P,Q)"S - 1 

voooo7 +90900000 +00 ENTER WITH (2)= SAT. IO. NO., (24#1) 
vooone+1.9000000+04 OF REF., (Z+2)= DAYS JAN.1- DAY OF 
yonn12+10000000+01 EXIT WITH (X)=T(P,Q) IN CUT,... (x+2 
y00013+60NHo0NN+Ne N(2,Q))... (X44) = NO3,Q)... I.E.. W 


395 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 151 
K VALUE = 04025 


? 


LOAD CONSTRAINT WEIGHTS 





Ele. 








396 






2651 






1 
© | susRoUTINE 

q | INPUT 90014 
1 | RESULT 99012 









— 90016 = 
HOD 5x16 





| | 11 
G2651 | 
SUBROUTINE 


J INPuT 90016 
1 RESULT 90013 









12 






Wt B= 
PREIS da 






13 
2651 


SUBROUT INE 
INPUT G18 





RESULT $4714 


MKI20 = 
NON 530020 


02651 


SUBROUTINE 
INPUT DOKI2Z0 
RESULT 90015 


on22 =. 
qoGoss0n22 





397 


PAGE 151 CONTINUED 


CROSS REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 
K VALUE = Ua0es 
151 .o1 54026 7.30% 


K VALUE = D4ge5 
a90nonn102654 INPUT CONVERTER 
V00006 +109000000+04 ONE 


398 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OI VI 


K VALUE = 94055 


COMPUTE CONSTRAINT 
EQUATIONS (ADDITIONAL 
EQUATIONS OF CONDITION) 
COMPUTE CONSTRAINT 
EQUATIONS 


AUGMENTS THE 
NORMAL MATRIX BY 
EACH Fah 


OOO07 = 
-10000000+01 





" 
H 
13 
LJ. 













ooo07 = — 
90907 +00005 











= OO006 


HI¢ 
. COMPARE 95598 
To 00607 










go0g7 = 
-19999000+01 





HI 





17 
“(95420 + (99598)) 
= O12 











ta 
h 


42316 






SUBROUTINE 
INPUT 90419 
RESULT 90598 

















19 


(98420 + COO07)) © 
= 90006 


2ti 
- -!'- 
4 1S WEIGHT = 4% ry 
21 


COMPARE ©0014 4 
TO OOTGE 





EQUAL 


22 


COMPARE 90597 _ 
To 90007 


14063 


23 


399 


NEL 


PAGE 152 


WT. FOR THIS EF@C IS NOT OG 


04068 | 24 
9 ‘BEGIN 90013 4 








SQUARE RT. HAND 
SIDE OF Eac 
I 

90014 = 
— agot2s00012 










AND ADD IT To SUM 
OF SQUARED 
(0-0) "5 






J 
90n4a9 =: 
—99049+00014 


| 








13 





400 


PAGE 152 CONTINUED 


ADD t TO NO. O& 
a ca 


900438 = 
90048+00005 


COMPARE 90597 
TO 0000 





K VALUE = 04055 


9059800598 M 

@9059700580 M-1 

99042000420 

Q9000102316 AUGMENT MATRIX 

9000204035 WEIGHTS 

99000300400 FIRST LOC. OF UNKNOWN NO”"S 
a9n0n494200 LOC. .PRECEDING FIRST OF SUMS OF XJ 
90041900419 

q9nn4s00048° N» NO.OF CONDITION EQNS. 
49004900049 SUM OF SQUARED (0-C)"S 
voonos+10000000+01 (COMPUTES AN EQUATION OF CONDITION 
vooods +n0000000+00 EACH UNKNOWN BEING SOLVED FOR, ANO 


CROSS REFERENCE LISTING 


PAGE BOX LABEL REFERENCES 
K VALUE = 94055 
152.01 04056 14.14% 
152.24 ‘04068 152.214 


401 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OI VI PAGE 153 
K VALUE = 94100 


¢ 


SUM UNKNOWNS (STORES EACH 
SUM ACCORDING TO J,THE - 
NO. OF THE UNKNOWN) 


14.18 


_ ad —— may 

9 BEGIN 90001 ) 

im = STORE NEW SUM 
WEIGHTED) 


f 
(90005 + (00008)) 
= 90012 
NEW SUM. ALSO 
STORES (WEIGHTED) . 
NEW AND 


J 
DOOOF = 
NK? = 
00007 +90006 





PREV.SUMS IN 
q TEMP .LOCS.FOR ] 


PRINTOUT.12 LO 
LL. ie ——— — 





5 
poe = (90001 + 
(0007) ) 


COMPARE 0006 
TO 99008 





402 


XJ, UNKNOWN 
J 














none = (99052 + 
(99907) ) ; 





GET 
CORRES . CONSTRAINT 
wT. 


Ont1 = (9G0K6 + 
(GIT) ) 





9 
GET CORRES. SUM 
FF ALL PREVIOUS 
XJ 
5 
wi = (Qos + 
C90098) ) 


‘pa 
—_! 


(WT 2) (PREVIOUS 
GUM CF X)) 







WWIA1?P = 
oe een hoe 





STORE PREV.SUM 
(WE TGHTED) 





J 
cata + GOOHIS)) 
. = MW? 









NEW 
SUM= (PREV.SUM) + 
(XJ) 







Gog1G = 
NOG10 400009 





13 


STORE NEW SUM 
(UNWELGHTED) 






J 
(90053 + (00a) ) 
= SO010 






403 


PAGE £53 CONTINUED 


NASA-GSFC MISSION ANO TRAJECTORY ANALYSIS DIVI PAGE 16 A 


K VALUE = 94199 


299091994095 FIRST LOC. OF UNKNOWN NO"S, J 
e900s2n5441 FIRST LOC. OF UNKNOWNS, XJ 
29900304205 LOC .PRECED ING (UNWEIGHTED) SUMS OF KJ 
ae0e0400700 LOC. .PRECEDING (WEIGHTED) PREV.SUMS O 
9009509800 ‘LOC.PRECEDING (WEIGHTED) SUMS OF xJ 
29900604035 FIRST LOC.OF CONSTRAINT WEIGHTS 
vonode +19000000+01 GET SUM OF PREV.XJ, ADDS XJ TO IT + 


CROSS REFERENCE LISTING 
PAGE BOX LABEL REFERENCES 
K VALUE = 94190 
153.01 n4101 14.18% 
153.04 94195 153.17 


404 


MASA-GSFC MISSION AND) TRAJECTORY ANALYSIS DIVI PACE 154 
K VALUE, = 04200 


RUN IDENTIFICATION LOAD 
AD PRINT 


1.05 
. i 
a InN 00001 





19 








al 
co00o01 + (00004)) 
= 90015 





coL. 1 
f 
cwoo0d2 + (00004)) 
= 00010 


405 


COL. 2 (PRINTER 
OUTPUT) 
deliens : a : 
(90003 + (90004)) 
90911 | 









COL. 3 (TAPE 
OUTPUT) 


J 
(90004 + (90004)) 


~~ — 






col. 5 (CARD 
TNPUT) 


J 
(990005 + (00094)) 
= 90014 


C1. 7 (-C 
ON-LINE) 


5 
(90006 + (90054)) 
= 0016 





12 





WRITE PRINTER 







13 


WRITE PRINTER 
BCD MODE 
8 50005 









406 


PAGE 154 CONTINUED: 


K VALUE = -04200 
90001 00099 ORBIT GENERATOR IDENTIFICATION 
vo0005 +10000000+01 $52:3:4,5,7 (ALPHABETIC) IN X...x 
voonos +60000000+01 LINES OF PRINT CONTROL CHAR.ARE WRI 


CROSS REFERENCE LISTING 
PAGE BOX LABEL REFERENCES 
K VALUE = 94200 
154.01 9a201 1 05a 


407 


1.23 
i 
6 BEGIN 4 r’ 
Cae nd en annul 
2 
00010 = 
-§0000000+01 
3 
00011 = 
90002400014 
4 
00011 = 
00012-00014 





wa 
~~ 

* 

we 


| 
| 
; 





NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
K VALUE = 04330 


~\ HIGH 


408 


WRITE PRINTER 
BCD MODE 





PAGE 155 





04348 


PAGE 155 CONTINUED 





409 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS Divi PAGE 156 
K VALUE = 94350 





NASA~GSFC MISSION AND TRAJECTORY ANALYSIS DOI vI 
K VALUE = 94339 





00055 









04339 


70015 | 





n0016 - 





90017 





90018 : 






14339 


411 


| —o0017 = 





PAGE 157 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 
CROSS-REFERENCE LISTING 


é 


PAGE BOX LABEL 


K VALUE = 94330 


155.91 94331 
455.95 4335 
155.11 04338 
155.16 04336 
155.19 94337 
155.28 04339 
195.35 n43a9 
156.91 4351 
156.96 04356 
156.11 N4361 
156.16 04366 
156.21 94371 
156.26 94376 
157.91 04381 
157.06 943a6 
157.14 04391 
157.16 04396 
K VALUE = 94339 
9000100009 
engd2n046s 
Q9000354456 
asnnd4ng466 
VOO012+59000000+0G 
vooo1 3+10090000+01 
v50014+59000000+04 


REFERENCES 


1.23% 


155.25 
155.08 
155.99 
155.26 
156.05 
157,19 
155.29 


156.19 156.15 


156.20 156.25 


157.15 


N=MAX. OF IP DUMP REQUESTS 


OUTPUT OPTION 


412 


156.30 


PACE x 


157.05 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


* VALUE = 94495 


FO62 END | 
COMPUTE EFFECTIVE DRAG 
(DELTA M) 








jLovea 


; ea 





SUBROUT INE 
INPUT 05039 
‘RESULT 00039 






FINAL DELTA M= 
(DELTA M4) (K) 
WHERE K=1 OR 0 


5 
00039 = 
99939490001 





~o001s = «eons + 
~ 00015)) 





11 






00016 =_ 
99033-00015 








aa 12 
TOTO) | 


92751 
SUBROUTINE 


| INPUT DON20 
[RESULT 90020 






14 
TO)-T , 
S 


90021 = 
| 90006-GGG1 5 





‘2751 
SUBROUTINE 
INPUT 90021 

RESULT 90021 








16 


N HIGH 
COMPARE 90921 
TO 99020 


LOvea 


413 


PAGE 15a 


24 





o001? = 
0001 7200015 





25 
2274 
SUBROUT INE 


INPUT 00017 
RESULT 00017 








90039 = 
-90039+00017 


o4a06 27 


Z| BEGIN 90006 ) 





23 






90010 =< 
90010400051 





94405 


PAGE 158 CONTINUED 





: 21 
| 00039 = 
00039+00017 | 


NSQ 


5 
mo17 = (90021 + 
ca0010)) 





| 23 
(T- TQ) %S 






5 
HOgL5 = 


O01 5400016 


414 


CROSS REFERENCE LISTING 
PAGE BOX LABEL REFERENCES 


K VALUE = 04400 


158.04 04401 74.05% 
158.04 04405 158.28 
158.09 04407 158.05 
158.27 04406 158.16 


K VALUE = 04400 


Q0000901 197 NO. OF T(P,@)"S 
9000001 100 T(0), EPOCH TIME IN C.U.T. 

ao0no1 00462 K, MULTIPLIER FOR DELTA M (K= 1 OR 
a9001801130 T(IP,Q)"S TIMES OF DRAGS IN C.U.T. 
9002001150 N(2,@)"S 

qe0d2101170 N(3,Q)"S 

eono3s300205 OBS. TIME IN C.U.T. 

aonneno2271 PRINCIPAL VALUE 

9009102751 ABSOLUTE VALUE 

vo0o050+o00000000+00 

v90051+10000000+01 


415 


SUASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 1308 
K VALUE = 04455 


17 












| OUT INE 
INPUT 00013 
RESULT 00013 — 











5 
90008 = 390002 
6 
900010 = 00003 
7 
00010 = 
00010-00007 
04460 8 


COMPARE 00019 > 
TO 00009 , 






. 9 


Goo10 = 
00010+00007 


EQUAL . 


32 
00003 = 
00016+00007 
33 


00010 = 
00008+00010 





416 


PAGE 189 CONTINUED 





‘ 90015 = (90013 + 
@0020)) 








417 


K VALUE = 04455 
a9000102650 K OF OPS F. + 130 , INPUT CONVERTER 
aouco202649 K OF OPS F. + 129° 
99000502520 OUTPUT SCALE F. 
asnon«n004e QUTPUT OPTION 
ascnnsondss SINGLE PRECISION 
00001 100003 
@9001300003 
a9001400004 
@9001 500005 
. voooo7 +50000000+01 
yooo0s+10000000+014 
vooons +00000000 +00 

| CROSS REFERENCE LISTING 


PAGE BOX | LABEL REFERENCES 


K VALUE = 04455 


159.01 -04456 155.33% 155.37% 

159.08 04460 159.23 159.37 

159.26 04461 159.16 159.17 159.18 159.19 159.90 
159.36 04477 159.44 | 
159.40 04476 159.34 


418 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIvI 


K VALUE = 04490 


FO63 END 

BROUWER 1 

BROUWER ORBIT GENERATOR 
SUBROUTINE FOR 
DIFFERENTIAL CORRECTION 
ROUT INE 





SETS LOOP SWITCH 
FOR BROUWER 


of 
M391 = 
+O0000000+00 







4 


1s PRINT -IND.=0 y 


} (FOR HARMONICS | 





COMPARE 90009 
TO 90012 


4492 


YES. SET IT=1, 
AND PRINT 


J 
90012 = 9094 0 





15 







WRITE TAPE D 


16 







WRITE PRINTER 
BCD MODE 


17 








WRITE TAPE D 
BCD MODE 
90000 99019 


13 


90900 90019 


4g 






WRITE TAPE D 
BCD MODE 
OG00o 90010 i 







WRITE PRINTER 
BCD MODE 
og90o 90910 


aia 


WRITE TAPE D 
BCO MOOE 
_99903 90019 


419 


PAGE 160 





32 






WRITE PRINTER 
MODE 


33 






WRITE TAPE D 
BCD MOOE 
go0o00 90010 


34 






WRITE PRINTER 
BCD MODE 
99000 90015 


35 






WRITE TAPE 0 


36 


WRITE PRINTER 
BCD MODE 
00003 3 sa0i0/ 


37 


PAGE 160 CONTINUED 





420 


kK VALUE = 94490 


9000193830 K 2 
99000203831 K 3 
9000393832 K 4 
29900493833 K 5 
@9000503864 J 
9000603829 H 
9000703828 K 
@9000803827 L 
asoe0s90010 ZERO 
9001000011 ONE 
99001102521 OUTPUT SCALE 
q9nd1202299 PRINT IND. 
yvend12+00000000+00 SET PRINT IND. 


CROSS REFERENCE LISTING 
PAGE BOX LABEL REFERENCES 
K VALUE = 94490 
160.01 04491 3.31% 10.03% 


421 


WASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI PAGE 161 
K VALUE = 04500 












12 
@. BEGIN 00370 8 
——" as a —_—_] 
13 
T0366 
14 
T0377 
15 
32 
00015 = 70361 one cicieaemiemamemmm 
4 CAP OMEGA+DELTA 
CAP OMEGA ; 
16 _ 00017 = 
00017+80005 





= 70362 


: 























17 
5 
00017 = 70363 
00026 = 70007 
is 
6 
90020 = 70360 34 
00027 = 70008 a Se 
sina a Ee 
19 00021 = 
7 00021 +80001 
i: 00384 = 7 , 
00028 = 70009 360470360 
8 20 
00364 = 
_ 003844703 
9 . 
= = _ 22 04871 36 
00377 = 378 + Penile enone (PEeen . 
(00381)) 00384 = e BEGIN 00371 ae 
, 00025 700384 Bene ce | ee eed 
37 
ago060 = 
oo020«00020 
o6e77? 


422 





4879 



















ILOvE® 
24 
DELTA A/2 
f 
9n41a = 
80000 /n0042 
5 
DELTA E72 
5 


00419 =_ 
s00g1 00042 







26 
DELTA 172 _ 


ae 
420 = 
80002 00042 






2? 





0418 = 
no41a+noden 





2A 





HG419 = 
41940024 





29 


HIG? = 
50425-00023 


423 


PAGE 161 CO}. TINUED 


3a 
yoou6o eOOO20 


39 





non62 = 





00021400021 
40 
n0063 = 
nNNG6S +oNNSe 
43 
—4nne4 = 
non62+00063 
} 42 
90065 = 
00495410062 
43 
066 = | 
0O0044+00064 


44 






90067 =_ 


q042+c00n62 








45 


46 
G2196 






SUBROUT INE 
| INPUT o0971 
RESULT So0T2 







NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


K VALUE = 94500 








OO0TS5 = 
00049300071 









OO076 = 
00050400071 








0077 = 
90051400071 








aaa 
90041 /00073 









0079 = 
09071400074 









“q0079 = 
9004100979 





92105 













SUBROUTINE 
INPUT 90923 
RESULT 099381 





0008900087 





24 





ng112 = 
90111300031 


25 






| 112 = 
00112200079 









(90113 = 
901122410112 


27 





90113 = 
90053400113. 





«28 


n0114 = 
90637400028 


29 












90415 = 
ooneo«00060 


424 


pate 162 


39 





00117 = . 
00117700118 








42 





00119 = 
00119900074 





43 


001138 = 
0118700119 


44 





Bite : 
00035400112 





45 





00120 = 
090082400119 





46 






ggo91 = 
90045400090 





47 


goq91 = 
nog91 -90044 


48 








pn092 = _ 
000440083 


p00a4 = 
00083400083 





13 
0085 = 
0041-0083 


{4 


09086 =_ 
n00433000383 


9g0a6 = 
none6-00041 


0a? = 
90945490083 


oa? = 
Nona? -90G44 





13 
jodaa = 





n90438s9084 


19 


00115 = 
90115400074 


114 = 


114/00115 


watts = 


G36 1112 


M116 = 
90114700112 


90116 = 


00334001 16 


0117 = 


0034400027 


19118 = 
n0526430074 


06118 = 
90118300025 


425 


33 


34 


35 


37 


38 





PAGE 162 CONTINUED 





s2 


00091 = 
_ 00091-00092 


| 00035800218 


55 


00093 =~ 
| 40093-0042 





57? 


90093 = 
00039400118 


WASA-GSFC MISSION AND TRAJECTORY AMALYSIS DIVI 
K VALUE = 04500 





00095 = 
00118900094 








Fae 
o0066+00095 





10 





0032400003, 









ce 
63200083 





27 


mae 
p0070+00089 — 


28 





09069 = 
99069-09070 





426 


PAGE 163 


39 








a 
00071700021 


40 








00132 = 
00030000131 





00133 = 
00131400119 








43 


2196 





SUBROUT INE 
INPUT 00134 
RESULT 00134 : 





44 






00161 =~ 
90135400084 





45 






00162 =~ 
00151300083 





46 






00161 = 
00161-00162 





47 


| 09161 = | 
50161+90043 


428 


11 





12 





13 





14 





15 






00100 = 
17086+000a6 






16 


90101 = 
00042-00087 





17 
92196” 
SUBROUTINE 


INPUT 90085 
| RESULT 00102 












18 





90102 = 
01024001 ed 





19 








— onta3 = 
901193810085 





era 


input 00023 


] Resuct o0121 
















 oo122 = 
| O01e1 #00121 
fF st 
o123 = 
o0021 400081 


32 





00124 = 
Oo123900081 





‘33 





00125 = 
00123 /00121 © 








. a126 = | 
124 /00121 





35 





90127 = 
00121400071 





36 





09128 = 
00127 10021 





87 
00129 = 
HO0921 0124 


38 


| 09130 = 
90123305123 


427 


PAGE 163 CONTINUED 


. oy 


00162 = 
— onpe2eoo11e 








49 





90161 = 
00161400162 








00162 = 
00137800072 





$4. 





90162 = 
00162+00138 | 





32 





90162 = 
00162 +0076 





55 





0162 = 
909084200162 





54 


00163 = 
004 40800072 


55 


90164 = _ 
90139400071 


56 


0163 = 
90163+955164 


57 


59163 = 
99151-00163 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OILVI 


x VALUE = 04506 





na164 = 
00164-00141 


3 


00164 = 
00164+00076 


00164 = 
00164+00163 


00164 = 
n0164+00162 


4 
5 
| 6 


os 






00164 = 
00164400113 






90164 = 
99164+001 61 








00163 = | 
oo1i2zeo9s6 =| 





19 






| 00164 = 
90164+00163_ 








21 





90162 = 
00162900114 













90163 
90071400 
24 


00164 = 
— 00072100145 





25 





05163 = 
90163+00164 








‘00163 = 
—00163+00144 





27 





0163 = 
00084400163 





28 


99164 = 
00143400072 


29 





00164 = 
90139-00164 





428 


PAGE 164 





0185 << 
00112200087 








00162+00163 





41 






$-2 
Sf 

00162 ‘= 

00162400134 









44 





00163 = 
00163+00164 





45 





00163 = 
90163+00135 





| i 46 
00163 = 
90163400083 


47 





mia 
. 00156400072 





s-1 
s 
00161 = 
— 00164900134 





00162 = 
00149900071 


on162 = 
00144-00162 


nn162 = 
00162100084 


16 





On163 = 
DOOTT-001 48 





17 





90163 = 
00083400163 





18 





00162 = 
90163+00162 





19 





90162 = 
90162400147 





i i 










00164 = 
00164-00077 
34 


— 
90083400164 








90163 = 
00163+00164 





33 





90164 =_ 
pnt 42a005T2 





90163 = 
00163+00164_ 





35 





ae 
00163-00135 








00163 = 
00163+00076 





37 





09163 = | 
| 001654001 15 





33 


f oiez=  _ 
 gotezeogies 


429 


PAGE 164 CONTINUED, 





Si 


{ 90163 = 
| 00163900113 


$2 






 ~6° 0164 = 
00047400083 






53 


00164 = 
90043-00164 





54 





00165 = 
90043400071 





. 35 





00165 = 
00045-90165 





56 





00164 = 
0016409165 





57 





90164 = 
90164400114 





NASA-~GSFC MISSION AND TRAJECTORY ANALYSIS OI vI 


K VALUE = 94500 





90164 = 
00164400032 








90163 = 
00163+00164 








05163 = 





00163400081 





00163 = 
(00163400044 











00163 = 
00163-00164 








$-3 


S 
00163 = 
00163400134 






00335 = 
90120400062 








09335 = 
90335400089 





00173 = 


00173300073 


90174 = 
60045400069 


MH75 = 


001 53200063 


M174 = 


0174-00175 


a NY x a 


90174 = 


\ 
a 


00174+00067 


M0174 = 


01 74400036 


00174 = 


00174400112 


9175 = 


N 
Wi 


i 
® je 


N 
mr 


00043 «00068 


Ho1i75 = 


00069-00175 


i nN 
bd 


GOL75 = 


00175+00067 


% 


430 


iv 
fe a) 


PAGE 165 


39 
o0476 =. 
0177 +001 76 


4o 


M176 = 
000924001 76 . 


90175 = 
90176-00175 } 


rt » 
' ~~ 


M476 = 
09121 /000e1 


43 


W176 = 
06176-50126 


0176 = 
GOL1 7240901 76 


00175 = 
00175+00176 


46 
99176 = 
904130400092 
4? 
00177 = - 
09130/00122 
43 
noOL7? = 


90063-00177 


90335 +009045 


11 
GI335 = 
50335200034 





12 





— oo171 = 
90973300091 





13 


W172 = 
99944409065 


14 






172 = 
nG09214101 72 





15 





1172 = 
90117+00172 





16 
M172 = 
YO1 7eahO1 23 
17 
472 = 
OO T2ingre 
18 
MWa1i72 = 
09055-00172 
19 









(+) 


35 
M175 = 
951 75200116 
7 31 
90174 = 
74 75-004 74 
32 





M174 = 
NOO3GI04 74 





| 33 
“99175 = 
1 24x96 


34 


O75 = 
O17 5400124 


0176 = 
00152+00065 





36 


M176 = 
99129650176 


37 


qG177 = 
6128-00126 


38 


o5177 = 
HOGE6 A 1 77 


431 


PAGE 165 CONTINUED 


©) 


Wary = 
11 T7 +I AS 






OG177 = 
001 277900097 


90176 = 
90176-05177 


O0176 = 


904 76x01 29 


Wit? = 
OWE 5SAdVBI94 


OOL77 = 
177 -9NG44 


OOL77 = 
MOLT 73454115 


MWi17a = 
1 LEM HHIOS 


MOLTT = 
94 7a-00177 


493 


54 






51 


AM 
a) 


57 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS OIVI 


K YALUE = 94500 


* 19177 = 
| 00021 200177 


tHE 


| OO177 = 
1177305123 


tl 


O78 = 
7 05122400096 


MO179 = 
00066.00092 


O178 = 
90178+00179 


00178 = 
| 901738+00117 


“ i 


HH178 = 
O01 7axd0i2s5 


.e <) i 





ng179 = 
n0098sidt2e 


0179. = 


i 


i 
3 


901 79+00097 


00179 = 
ga1 79400062 


HI 


) 


90182 = 
90055-00182 


00183 = 
00123/00127 


90183 = 
90055-00183 


COMPARE 90041 
TO 80506 


(3) lores 


oy 


n4arv2 


A2 


s 
0423 = 
4184490418 





F2 
f 
no0424 = 
00419800419 





Bi 


f 
90425 = 
00041-00424 





432 


PAGE 166 





37 
00434 = 
00433400432 
38 


c2 


Ss 
00434 = 
004343430031 





39 


M435 = 
5434 x0A34 


45 
C3 


J 
0435 = 
00435200053 





41 
no436 = 
90037 «0002a 
42 
90437 = 
9042500428 


14 


n9179 = 
(70179809125 





12 





19179 = 
VII55~-OL79 








go1an = 
00021 300091 






14 






ng1ad = 
9007 ab0071 








Miat = 
HOO66AIIIgV!? 





16 






Nal = 
901.81+00117 





17 


onal = 
991814400127 


18 





90182 = 
90093400127 





19 





‘a0192 = 
H91824I0062 





Leelee oes 
r aes a 


52196 





SUBROUT INE 
INPUT 05425 
RESULT 90426 






29 
a 


ee 
427 = 
HAZE IG4!S5 





B4 
sift 
«66428 = 
(WG427 40427 
31 


B5 






S 
O8429 = 
MIG490425 







32 
BS 
2d, 
M430 = 
WRI5SGURIG4 25S 






L nie 
rik | 







f 
9431 = 
90051450425 





34 


J n9432 = 
09425496425 


433 


) 


PAGE 166 CONTINUED 





43 














90437 <_ 
9437 x00423 


‘AA 
9437 = 
HIATT WINS23 







C4 
f 
436 = 
130436 09437 






2105 


‘SUBROUTINE 
INPUT O9420 
RESULT 90437 





4a 
D2 
af 
94383 = 
IA 37 +4437 


49 


D3 
s 
99439 = 
O0437410437 


50 


D4 
f 
ng445 = 
90439200439 


51 


0441 = 
9004500439 


PAGE BOX 


LABEL 


K VALUE = 045090 


161.01 
161.19 
161.12 
161.36 
168.03 
168.95 
168.14 
168.20 
168.36 
169,40 
1/3.09 
1/3.17 


04501 
n4a7a 
04870 
94871 
04872 
14879 
04713 
94853 
04836 
94837 
14656 
04657 


CROSS REFERENCE LISTING 


REFERENCES 


161.11 
161.23 
166.23 
161.11 
168.23 


168.34 


173.01 


434 


173.01 


65.26% 


168 .02 


 WABA“EEEC MISSION AND TRAJECTORY ANALYSIS DIVI 


OK VALUE = 04500 
a7ro00001 100 
Q7000104947 
7000202196 
a7o000sd2103 . 
@7000402105 
Q7000502216 
Q@7000602166 
Q7000703830 
a7000803831 
a7000903832 
@7001103833 
arootone271 
@7036001101 
Q7036191113 
@7036201115 
7036301117 
a7036601102 
a7037701116 
a7o40003844 
asonn0nd2 76 
ae000100277 
a8000200278 
Qs0nnd300279 
aeonn4nd280 
asn00500281 
as050000085 
9050104439 
q9000100218 
ascod200219 
agnonss0220 
asnon4nd213 
@9000590215 
agnonsnde1 7 
990007013841 
900018038495 
Q0001 903866 
@00024033843 
an002503889 
@n0ns 203868 
qon2n5n3e42 


@0020603843 
vo00360+50000000+00 


voou3s1 +15000000+01 
V00032+33333333+00 
V00033+6666666 7+00 
voo0034+25000000+00 
¥00035 +16666667+00 
¥00036 +83333333-01 
voge37+93750000+00 
v00038+46875900+60 


T(O) . EPOCH TIME IN C.U.T. 
ANGLE-QUAD: DET. 
SQUARE ROOT 
SINE 

COSINE 

KEPLER 

ARC COSINE 

K 2 

K 3 

K 4 

K 5 


PRINCIPAL VALUE 
A, SEMI-MAJOR AXIS AT TU) 


M, MEAN ANOMALY AT 1(0) 

ARG. OF PERIGEE AT T(0) 

RT. ASC. OF NODE AT T(O) 
ECCENTRICITY AT T(O) 

I, INCLINATION AT T(0) 

K SUB C (CRITICAL INCLINATION) 


DELTA A (COMP. PERT.) 


DELTA I (COMP. PERT.) 


DELTA M (COMP. PERT.) 
DELTA ARG. OF PERIGEE (COMP.PERT.) 


DELTA RT. AS. OF NODE (COMP.PERT.) 
COMPLEMENTARY PERTURBATIONS IND. 
DELTA M (ORAG) 

Ay SEMI-MAJOR/ AXIS AT REQUEST TIME 
—, ECCENTRICITY AT REQUEST TIME 

IT, INCLINATION AT REQUEST TIME 

M, MEAN ANOMALY AT REQUEST TIME 
ARG. OF PERIGEE AT REQUEST TIME 


RT. AS. OF NODE AT REQUEST TIME 
‘COMPUTE. DRAG AND COMP. PERT. EFFECTS 


METERS/C.U.L. 
(METERS/C.U.L.) (C.U.T./SEC.) 
SECONDS/C.U.T. 

MuURCK2=GM 

RAD/DEG 

2 PI 

SECONDS/C.U.T. 
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90152+26900900+02 
vo0153+11000000+02 
V99939+19444444+95 
v000459+12962963+0 
vooG41+109990090+01 
y00042+200000099+01 
vo0043+39000000+01 
V90044 +49900990+601 
voono45 +59900000+01 
vono46+60900009+01 
v00047 +70000000+01 
vond48+85o000000+01 
vono49+900000095+01 
voo0gso+259000000+02 
v0005 1 +12699000+03 
V00053+4166666 7-01 
vn0054+16000000+N2 
voo005 5 +00000000+90 
voo0155+00000000+00 
V00339+19000000+00 
v90135+35900000+02 
vo9136+36900Nn0+02 
VO0137+144099965+03 
VO0138+1950906500+03 
voo0139+9000000G+n2 
vO5149+96900000+52 
vO014141590000G+52 
vo0142+24000000 +02 
v50143+19200000+03 
VI991.44 +38500900+03 
VG145 +36000009+03 
VI0146 +4500009G+02° 
v99147+21000005+2 
9091 48+27000000+53 
V99149+18900000+03 
vo04 59+12000N00+Ne 
von151+300990090+02 
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K VALUE 


176.01 
176.10 
176.12 
176.14 
176.16 
477.01 
177.03 
avr.42 
177.38 
178.35 
179.03 
179.09 
179.11 
179.16 
190.01 
190.07 
180.09 
180.21 
180.23 
181.01 
181.20 


K VALUE = 09000 


Q8002603837 
Q8002803858 
900300387 1 
Q9003103859 
@9003203861 
Q8003303860 
99000100206 
aoon2n2011 
@9000502847 
asn006023848 
@9000702849 
aonnoso2ss0 
a9nnns02851 
@9001002852 
a9001 102653 
@9001202854 
9001302855 


a9001602858. 


@9001702859 
a9001802860 
@9001902861 
eond2202864 
@9002302865 


CROSS REFERENCE LISTING 
REFERENCES 


LABEL 
= 09000 
o9008 


09029 
a9070 
09073 
09045 
09067 
09007 


G9005 


09006 
09071 
09012 
09081 
o9n82 
09053 
09063 
09054 
n9059 
09078 
g9079 
o9080 


23.064 23,146 23.206 24.178 


176.11 


176.13 


176,15 


177 02 
176.13 
277.30 
178.23 
176.13 


179.08 
176.22 


180.06 


176.22 


179,03 


180.20 - 
179.24 
177.36 


178.39 
176.15 
177.32 
£78.34 
176.15. 


180.08 180.22 


179.15 
477.34 


179.10 
180.25 


181.19 


179.24 


F, FLATTENING COEFFICIENT 


K SUB 2 = C.U.T./DAY 
3.6 

4+N SUB O. 

SMALL H SUB O 

H SUB O 

BETA 

SMALL R VECTOR, X COMPONENT 

SMALL R VECTOR,2Z COMPONENT 

VECTOR MAGNITUDE FUNCTION 

A SUB S FOR L»M C1 SUB S FOR R, R DO 
8 SUB S FOR L.M C@/F2 FOR R,R DOT 
“WORK AREA FOR T SUB G NO. 1 OF 6 LO 
T SUB 
T SUB 
T SUB 
T suB 
WORK AREA FOR T SUB 5 

WORK AREA FOR N AUB OD NO. 1 OF # LO 
N SUB 1 

N SUB 4 

WORK AREA FOR N SUB 5 

WORK AREA FOR H SUB 0 NO. 1 OF 6 LO 
H SUB 4 


aun 


H SUB 4 
WORK AREA FOR H SUB 5 
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182.05 


K VALUE = 04946 


29000102156 
@9000202166 
@0000503838 
0000603839 
Q0000703865 
90001003842 


v00008+60000000+56 
v90009+00000000+00 


VALUE = 04946 


174,02 
174.96 
174.14 
174.16 
174.26 
174.31 
174.34 
175.05 
175.59 
175.14 


04947 
na96t 
14962 
04963 
54967 
4968 


04969 
94965 
04964 


04966 


ARC SIN 


ARC COS 
P1/2 


PI 


3 PIi/2 
2 PI 
6 
ZERO 


179.06x 171.51* 


174 
174 


174 


174, 
22 
ef 
FA | 


174 
174 
175 


174, 
1 75 2 


aio 
G4 


-08 


20 


12 
19 


FOR THE ANGLE-QUABRANT DETERMINATION 
SUBROUTINE K=04946 SEE PAGE 202 OF THE 
PROGRAM LISTING 
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@9002402099 
@9002602751 
@90027 00256 
9002990375 
29003000253 
29003202051 
@9003302001 
9003402101 
@9003502105 
9003602085 
@9003901 201 
@9004001 851 
9004101202 
9004202196 
9004303849 
¥00010+00000000+00 
vooo? 2+10000000+01 
v00047 +20000000+01 
V0004.8+30000000+01 
von049+50000000+04 
v00050+90000000+01 
vooo05 1 +13000000+02 
voo0s8+19000000-12 
vono76 +19000000+106 
vonos2+99922944+00 
v00028+17453293+00 


UNCORRECTED L, M, RHO OR RHO DOT 
TIME IN C.U.T. 

ENTRY TO ABSOLUTE VALUE SUBROUTINE 
COMPUTED OBSERVATIONS 

R, BAR OOT 

R, BAR STAR 

TYPE CODE 

DOT PRODUCT ENTRY 

VECTOR MOVE ENTRY 

SIN ENTRY 

CoS ENTRY 

VECTOR @ 1 NO. 1 OF 3 LOCATIONS 
LF ENTRY 

ENTRY TO EXPONENTIAL FUNCTION 
LSP EXIT 

ENTRY 10 SQ. ROOT 

EARTH RADIUS IN CUL 


ZERO 


ONE, CODE FOR RANGE 

TWO, CODE FOR L 

THREE, CODE FOR M 

FIVE, CODE FOR EL 

NINE, CODE FOR RANGE RATE 

THIRTEEN, CODE FOR EL DOT 

TOLERANCE FOR ZERO EL 

PSUEDO PARAMETER IF EL APPROACHES 2 
COS PHI SUB IM 

TEN DEGREES, B1 


THE INFORMATION ON THIS PAGE IS FOR THEL, (M, R, RR CORRECTOR FOR 


1ONOSPHERIC REFRACTION SUBROUTINE K=09000. SEE PAGE 2040F THE 


IP ROGRAM LISTING. 
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K VALUE = 99190 


_ RANGE AMBIGUITY 

" RESOLUTION FUNCTION 
‘RANGE AMBIGUITY 
“RESOLUTION F. 





) 1S RESOLUTION : 
| REQUIRED 
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MAYBE. 











INTEGER 
r | 

(00008 = INTEGRAL 

PART OF 99009 


















FRACTION 
a | 
99008 = 
00099-00008 









10 


RO OM 

J 
90005 = 

90003%00008 






RO A 


§ 
00006 a 
90002-00005 






PAGE 163 





COMPARE 99012 
To 99004 






ae ar 
| NO. RO 1 PRIME =O. 
_o000r + s000s 









NO. RO.1 PRIME 
1 


PAGE 183 CONTINUED 


19 


RO 1-K1 =TEST 
FACTOR 


sf . 
00007 = 90003 





99133 
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K VALUE = 09205 


2 


R> 0,1-RO CM GREATER 
THAN TEST 


| RO 1 PRIME =-RO 1 
5 


MOO? = 
90095-9090903 


RD A+RO 1 PRIME 
“RD O-RD O,1 
J 
coou1a = 
0006 +0007 





HIG 





COMPARE 90004 
To 90014 
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18 

wee § ee oy 
q NO. Q 
mn 


23 





HHMM (PACKED 
f 






90512 = 
ogee +n0022 





SECS. 
s 





90013 = 00023 


| | 25 
J.D. *DAYS TO 





* 


§ 
ag0a2e6s = 


00020+30010 








(RO O-AO O,1)/C 


00008 = 
00014790008 





_ SEC ARE NEGATIVE 


SECS + Sec/pay 
OO016 = 
00016+90014 









ae 2 i? 
| J.D. “ONE | 

00015 = 
— 00015-90015 
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PAGE 19a CONTINUED 








| crv) x 400° 









o0009 = 
00009+00010 


~_-YYMMDD t sus Oo 
_ G0009+00029 — 


(on) 
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K VALUE = 99156 


agggngnId2es835 
a9ngn100255 
a9gqg200256 
90390396 
a9h00490397 
Q90nesn0015 
a9999690378 
a9905705379 
a90G0an3ee2 
995990999296 
99001900297 
Q9991 192825 
Q9501 22826 
a9001302827 
39501403862 
9091593811 
29199102751 
a919n2ne7a1 
Q919034116 


v6O001 7 +G0000G06+00 


V9901.0+100000004+03 


PAGE 


CORRECTED RO sUuB 9 

RO SUB 5,1 CINPUT). ROSUBO (OUTPUT) 
RO SUB C 

RO SUB 1 

K SUB 1 

ZERO 

J.D. OF T SUB G,1 

SEC. OF T SUB 5,1 

C;VEL. OF LIGHT IN CUL/SEC 
YEAR OF REFERENCE 

DAYS JAN 1- REF DAY 

YYMMDD T SUB 5 


HH MM OT SUB SO 


SECONDS T SUB Si 
SEC/DAY 

ONE 

ABSOLUTE VALUE F. 
JD.- SEC TO J.D. HMS 


DATE FUNCT TION 


ROUNDING FACTOR 
100 
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CROSS-REFERENCE LISTING 


PAGE 5Ox 


183.18 
184.11 
184 44 
184.15 
184.19 


K VALUE 
183.1 


123.96 


LABEL 


09131 
9132 
19133 
19134 
9135 


= O91tnd 
9151 


7191345 


REFERENCES 


183.16 
183.21 
183.17 183.22 
184.14 
1384.17 


23 ax 


193.93 
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- /% VALUE = 09200 


JULIAN DAYS- SECONDS To 
C.u.T.. 





132.41 
i 
® BEGIN 90001 8 












— 
— 90005+50006 








—p0001 + (O0004)) 
~ = 90005 
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CROSS REFERENCE LISTING 


PAGE BOX LABEL 
K VALUE = 99200 


185.01 9204 


K VALUE = [99205 
Q0009703e62 
Q5000853843 
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REFERENCES. 


132.41% 133.38% 


SECONDS/DAY 
SECONDS/C.U.T. 


NASA-GSFC MISSION ANC TRAJECTORY ANALYSIS DIVI 


THE FOLLOWING 6 PAGES CONTAIN ALISTING OF ALL OF THE BEGIN COMMANDS OF THE D.C. PROGRAM. THE 
LOCATION INDICATED BY A BEGIN COMMAND IS THE EQUIVALENT OF A FORTRAN STATEMENT NUMBEROR A 
MAP/FAP LABEL. THEY ARE USEFUL FOR REFERENCING PURPOSES IN THE EVENT OF THE NEED FOR INTER 
MEDIATE OUTPUT NOT NORMALLY PRINTED BY THE PROGRAM (SEE PAGE 180 OF THE PROGRAM LISTING). 


LABEL PAGE BOX LABEL PAGE BOX LABEL — PAGE BOK 
oo0oa 16.16 01218 24.07 1551 52.35 
90020 1.04 1219 24.12 01552 53.01 
oone1 3.08 91220 24.19 01553 §3.18 
on022 5.12 1221 25.01 01554 53.35 
00023 ast! n1222 25.08 91555 54.04 
00024 8.17 n1223 25.13 01556 54.18 
00027 10.15 1224 25.1? 01557 54.35 
oon2s 19.10 01225 25.22 01558 55.01 
90029 10.96 91226 26.91 01559 55.18 
GOa30 13.24 01227 26.07 01601 57.04 
00033 16.04 01228 26.13 01611 58.041 
00036 7.15 1229 26.18 01612 58.05 
00037 7.04 91236 ar .58 1613 58.00 
n0061 16.08 191394 28 1 1614 58.09 
on062 4.22 91356 30.01 01615 58.12 
00063 16.12 31365 31.95 1616 53.14 
1064 16.14 13a1 S201 11617 58.17 
00073 13.12 91389 32 5 1618 58.19 
O07 4 12.09 91399 32.27 31619 §9.94 
OnK191 9.16 1391 32.09 91625 59.93 
nonge 9.24 131393 33.91 01621 59.11 
00093 &.04 1394 32.17 n1622 59.14 
50094 5.1¢ 41398 32.24 01623 59.19 
00095 3.16 1401 34.04 n1624 59.23 
00101 17.01 1479 34,98 51625 60.914 
00110 17.15 91494 55.35 31626 69.94 
OL 18.01 1495 56.44 91627 60.10 
00112 18.35 91504 34.16 1628 60.29 
00128 18.14 4502 35.01 51629 61.07 
90129 19.01 01503 36.94 31630 61.22 
09130 18.25 41504 37.17 1631 62.25 
0131 19.03 41505 37.23 ni660 64.01 
0132 17.19 91506 37.29 01668 57.23 
90133 17.20 91507 38.04 01669 57.26 
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09399 
472 
004/73 
qn4eo0 
70481 
482 
0483 
491 
nase 
70493 
90494 
00570 
00571 
00573 
M1574 
95/75 
715 76 
00507 
90578 
i201 
01211 
n1212 
01213 
1214 
91215 
01216 


1217 


PAGE BOX 


17.13 


20.91 


21.93 


21.56 
12.25 
13.16 
8.26 
7.26 
11.25 
11.36 
15.01 
15.08 
9.22 
9.14 
20..2¢ 
19.22 
10.26 
101,32 
22.23 
22.26 
1.28 


LABEL 


91598 
91559 
01515 
1511 
91519 
01526 
1521 
91522 
91523 
01524 
91525 
91526 
1527 


191528. 


1529 
91530 
91534 
91532 
1533 
1534 
91535 
91536 
91537 


91538 


91539 
014549 
91541 
91542 
51543 
01544 
91545 
01546 


01547 


1548 


1549 


11550 
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TABLE OF BEGIN COMMANDS 


PAGE BOX 


39.01 
45 of 
40.27 
41.01 
41.11 
42.12 
42.27 
43.91 
43.16 
43.31 
44.04 
44,16 
44.31 
45.91 
45.16 
45.31 
46.51 
46.16 
46.31 
47,04 
47.16 
47.31 
48.01 
48.16 
48.31 
49.01 
49.18 
49.35 
50 G4 
50.18 
501.355 
51.01 


51.18 
51.35 
52.01 


52.18 


LABEL 
01701 
91710 
Orit 
01712 
01713 
o17ia 
01715 
01716 
o1717 
01718 
01728 
91729 
04730 
01731 
1732 
a1776 
O17?7 
01778 
91a01 
g1ane2 
o1ana 
01805 
1806 
01a07 
91819 
n1812 
91813 
01814 
013815 
91816 
01817 
o1aen 
01831 
n1a32 
01834 


1840 


PAGE BOX 
BS 01 
68.08 
68.11 
68.13 
70.01 
69.95 
69.17 
70.13 
71.33 
73.01 
70.05 
69.01 
67.21 
66.05 
67.15 
66.48 
67.19 
68 .05 

6.18 
6.01 
6.56 
6.15 
14.10 
14,01 
6.22 
4.13 
5.01 
2.12 
2.21 
8.22 
9.96 
2.26 
12.13 
12.16 
13.32 
16.19 


‘ 
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TABLE OF BEGIN COMMAN DS 


LABEL PAGE BOX LABEL PAGE BOX LABEL PAGE BOX 
01841 74.91 2361 192 ot 93026 125.35 
01851 75 01 92370 12.44 N3051 127.04 
01875 75.19 ne372 192.13 03055 127,04 
01876 75.37 02374 192.15 03056 127.12 
01877 76.04 esr? 102.17 03957 127.16 
01878 76.09 2389 102.32 03058 127,32 
01883 75.08 12391 ine .34 03301 128.91 
019884 75.12 2396 193.07 93305 | 128.14 
01901 77.94 2397 193.10 03329 128.26 
01927 77.15 n2398 102.37 03330 128.07 
n1928 77.96 02399 104.91 03331 128.18 
01941 73.01 n24aog 104.03 03332 128.20 
01956 79.94 n2ane 104 .05 03333 128.24 
g1971 80.91 g24g7 104.10 N3351 129.01 
01986 81.01 02413 104 .2n 03365 129.11 
01997 81.16 02416 104.12 3366 129.14 
11999 81.05 62418 195.01 N3369 129.17 
n2001 82.91 24/6 107.941 03370 129.09 
o2011 83.91 n2484 197.16 03371 129.20 
oene1 84,01 02486 1997.05 03376 130.01 
n2029 84,12 2494 197.07 93380 130.16 
02031 85.01 2495 197.21 03388 130.11 
g2en41 86.94 2521 198.94 3389 139.20 
nens1 87.01 02549 108.33 93395 130.98 
genet 88.91 92544 198.42 03451 134.91 
02076 89.04 92542 199.01 93405 434.93 
2093 10.38 2543 199.14 03406 132.91 
N2094 11.05 92596 1049.19 93407 133.91 
n2095 141.16 2605 199.23 3416 131.12 
n2096 11.17 52606 199.35 O3417 131.21 
n2101 90.01 n2eng 199.33 a34t8 132.19 
n2105 90.37 2649 198.29 03488 133.19 
02121 90.57 N2651 119.604 93494 132.30 
92124 90.15 N2664 119.25 03492 132.39 


450 


NASA-GSFC MISSION AND TRAJECTORY ANALYSIS DIVI 


LABEL | 


02126 
02156 
02163 
02164 
02166 
02173 
02174 
02176 
02196 
02202 
o2207 
02216 
o2228 
02241 
G2242 
02243 
O2244 
02246 
02265 


02267 
O2271 
02275 
02301 
02314 
02316 
02329 
02330 


02353 
02354 
02355 
02356 
02357 
02358 
02359 


PAGE BOX 


90.34 
91.01 


91.09 


91.11 
92.01 
92.09 
92.11 
93.01 
94,01 
94 .06 
94.12 
95.01 
95.13 
95.16 
95.32 
95.09 
95.19 
96.01 
96.14 
96.22 
96.11 
97.01 
97.11 
98.01 
98.08 
99.01 
99.58 
99.13 


150.01 


100.06 
190.12 
100.15 
100.17 


100.22 


101.03 


161.04 


LABEL 


92721 
2725 
02729 
O2751 
02756 
02757 
o2761 
2767 
92768 
02601 
02806 
n2so7 
2808 
02810 
n2811 
02814 
02876 
02936 
02940 
d2041 
N2e42 
02943 


92946 
o2047 
02948 
n2949 
n2952 


92953 


02964 
02978 
02979 
03005 
93016 
03017 
o3neo 
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TABLE OF BEGIN COMMANDS 
| PAGE BOX 


111 .G1 
111.16 
111.12 
112.01 
112.04 
112.96 
113.01 
113.04 
113.10 
114.01 
114.98 
115.91 
115.23 
114.17 
114.96 


115.17 


115.20 
117.04 
117.08 
117.10 
118.26 
118.28 
119.15 
119.01 
122.01 
125.30 
121 .09 
122.41 
123.28 
121.06 
118.16 
123.40 
125 .02 
121.04 


(117.06 


129.32 


LABEL 
03494 


03495 
03496 
03501 
03506 
03516 
03513 
03524 
03524 
03530 
03532 
03535 
03539 
03551 
3573 
03574 
03575 
03576 
03577 
035738 
03579 
03580 
03601 
037041 
03740 
03741 
93742 
03743 
03744 
03745 


03746 


03751 
03763 
03a01 
03816 
03817 


. PAGE BOX 


133.27 
133.36 


134 G1 


135.01 
135.08 
135.11 
135.18 
135.25 
136.04 
136.04 
136.10 
136.17 


136.13 


137.01 
138.0% 
138.08 
138.25 
139.15 


140.01 


140.16 
139.24 
139.62 
141.04 
142.01 


143.02 
143.18 


142.15 


142.11 


143.05 


143.20 


143.09 
144.01 
144.05 
145.01 
147.16 
147.01 


é 


03818 
03819 
03901 


03908 
03911 


04056 


04101 
04105 
04201 
04331 
04335 
04336 
04337 
04338 
04339 
04349 
04351 
04356 
04361 


04372 
04376 


04386 
04391 
04396 
04401 
04405 
04406 
04407 
04456 


PAGE BOX 


145.07 
146.14 
149.01 
149.17 
149.21 
149.07 


151..01 


152.01 
152.24 
153.01 
153.04 
154.01 
155.01 
155.05 


155.19 
155.11 
155.28 
155.35 
156.01 
156.06 
156.11 
156.16 
156.21 
156.26 
157.01 
157.06 
157.11 
157.16 
158.01 
158.04 
158.27 
158.09 


159.01 
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TABLE OF BEGIN COMMAN DS 
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09071 
09073 
09078 
09079 


09081 


09101 
09130 
09131 
09132 
09133 
09134 
09135 
n92n1 


PAGE BOX 


180.09 
180.21 
180 .07 
177.03 
176.14 


176.16 
180.23 
181.01 
181.20 


4179.11 


179.16 
183.01 
183.06 
183.18 
184.01 
184.04 
184.15 
184.19 


185.01 
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TABLE OF BEGIN COMMANDS 


LABEL PAGE BOX 
04400 154.08 
04461 159.26 
G4476 159.40 
oar? 159.36 
04491 160.01 
04501 161.01 
04656 173.09 
04657 173.17 
04713 168.14 
04836 168 .36 
04837 169.40 
04853 168.20 
04870 161.12 
04871 161 .36 
04872 168.53 
04878 161,10 
04s79 168 .05 
04947 174.04 
04961 174.06 
04962 474,14 
04963 174.16 
04964 175.09 
04965 175.05 
04966 175.14 
04967 174,26 
04968 174.31 
04969 174.34 
09001 176.01 
09005 177,38 
99006 178.35 
gon07 177.12 
09012 179.99 
09029 176.12 
09034 176.10 
09045 177.91 
0953 _ 180,01 
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Reference 
Bl. IBM 7090/7094 Autoflow System User's and Operator's Manual, Prepared 


under Contract No. NAS5-10021 by Applied Data Research, Inc., 
Washington, D. C. 
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ADD TO CORRES. SUM OF (0-C) SQ AND TO N FOR ONE OBS. 


HOURS-MINUTES—SECONDS TO RADIANS 


DEGREES—MINUTES-—SECONDS TO RADIANS 
VECTOR PACKAGE (VECTOR MOVE) 
VECTOR PACKAGE (VECTOR MAGNITUDE) 
VECTOR PACKAGE (VECTOR DIRECTION) 
VECTOR PACKAGE (VECTOR ADD) 
VECTOR PACKAGE (VECTOR SUBTRACT) 
VECTOR PACKAGE (DOT PRODUCT) 
VECTOR PACKAGE (CROSS PRODUCT) 
VECTOR PACKAGE (SCALAR BY VECTOR PRODUCT) 
SINE-COSINE FUNCTION 

ARC SINE 

ARC COSINE 

TANGENT 

SQUARE ROOT FUNCTION 

KEPLER 

ARC TAN 

ANGLE REDUCTION FUNCTION 

MATRIX CLEAR 

FULL ROW MATRIX FUNCTION 

COMPUTE AND PRINT R.M.S. FOR EACH OBSERVATION TYPE 
LINEAR EQUATIONS SOLUTION FUNCTION 
SPO (STATION POSITION ORIENTATION) 
LOAD AND STORE PRINT REQUEST CARDS 
OUTPUT SCALE 

INPUT CONVERTER 
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02720 
02750 
02760 
02800 
02935 
03050 
03300 
03350 
03375 
03400 
03495 
03500 
03520 
03550 
03600 
03700 
03750 
03800 
03825 
03900 
04025 
04055 
04100 
04200 
04330 
04400 
04455 
04490 
04500 
04946 
09000 
09100 
09200 


125 
126 
127 
128 
131 
142 
144 
146 
147 
148 
152 
153 
154 
155 
159 
160 


162 


163 
166 
168 
170 
171 
173 
174 
175 


178. 


180 
182 
184 
202 


204 
211 


213 


PAGE LINE 


04963 
05002 
05043 
05083 
05203 
05643 
05723 


05083 


05843 
05884 


06043 
06083 
06123 


06163 
06323 
06366 
06442 
06483 
06602 
06683 
06763 
06803 
06883 
06923 
06966 
07084 
07166 
07246 
07322 
08046 
08128 
08403 
08483 


NAME 


RANGE RATE FUNCTION 

ABSOLUTE VALUE FUNCTION 

ONE WORD LOAD 

OBSERVATION LOAD FUNCTION 

ELEMENT LOAD (CONVERSION OF ELEMENTS) 


BACKWARD DIFFERENCE INTERPOLATION FUNCTION 


DAY COUNT FUNCTION 


OBSERVED DATE TO JULIAN DAYS FUNCTION 


REDUCTED JULIAN DAYS-SECONDS TO CUT 


PROGRAM P FOR COMPLEMENTARY PERTURBATIONS 


INITIALISE PROGRAM P FOR COMP. PERT. TAPE 

LOAD REJECT CARDS 

OBSERVATION SEARCH AND REJECT FUNCTION 

PRINT INITIAL ELEMENTS, DRAGS, AND EARTH CONSTANTS 
LOAD AREA, MASS, DRAG DATA CARD FOR MCOI 

CTMU ASSIGNMENT FUNCTION 

CTMU COMPLEMENT 


CONSTANTS POOL FUNCTION FOR DIFF. CORRECTION 


SHADOW DETERMINATION CONSTANTS 
LOAD DRAG DATA 


LOAD CONSTRAIN WEIGHTS 
COMPUTE CONSTRAINT EQUATIONS 
SUM UNKNOWNS 


RUN IDENTIFICATION LOAD AND PRINT 
INTERVAL CORE DUMP 

COMPUTE EFFECTIVE DRAG (DELTA M) 
INTERVAL CORE DUMP DUMP 

INITIALISE BROUWER ORBIT GENERATOR 
BROUWER ORBIT GENERATOR 
ANGLE-QUADRANT DETERMINATION 
CORRECTOR FOR IONOSPHERIC REFRACTION 
RANGE AMBIGUITY RESOLUTION FUNCTION 
JULIAN DAYS-SECONDS TO C.U.T. 
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